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i @ ABSTRACT 



THE RKU/RK.05 DYNAMIC TEST AIMS AT 

1, DEMONSTRATING THE ELECTROMECHANICAL INTREGRITY 

OF THE DRIVE, 

2 9 CHECKING THE LINEAR POSITIONER CONTROL AND SPEED 

CONTROL 

3® VERIFYING THE INTREGITY OF THE READ/WRITE LOGIC 

4® PROVIDING A TIMER FOR THE SEEK FUNCTION,, 

THIS IS A TEST ONE LEVEL HIGHER THAN THE BASIC RK11 
LOGIC TESTS® 



2,0 REQUIREMENTS 

2 g i EQUIPMENT 

A, PDP11 WITH CONSOLE TELETYPE, 

B® 8K Of MEMORY 

C, RK11 OR RKVH CONTROLLER 

D® i«8 RK05 OR RKQ5F DRIVES (DRIVE TYPES MAY BE MIXED) 

2 @ 2 PRELIMINARY PROGRAMS 

RK11 LOGIC TEST I (MAINDEC^l i^DZRKJ) 
RKli LOGIC TEST II (MAINDEOll-DZRKK) 

2,3 EXECUTION TIME 

ERROR FREE FIRST PASS ON PDPU/20 WITH CORE MEMORY 
TAKES APPROXIMATELY 5 MINUTES (WITHOUT THE SEEK 
TIMER AND GRAPH*, ADDITIONAL 3*5 MINUTES FOR THESE), 
LESS FOR FASTER MACHINES OR MEMORIES® 

3®0 STARTING ADDRESS 

200 FOR ANY NORMAL MODE OF OPERATION® ALL SWITCHESS 
DOWN 

210 FOR FUNCTION SELECTING PROGRAM (CONVERSATIONAL 
MODE) , 



4®0 PROGRAM CONTROL MODES & OPERATOR ACTION 



PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACT11 



i 
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4 8 i PAPER TAPE LOADING 

4.1.1 LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR ABSOLUTE TAPES® 

4 @ l s 2 MAKE SURE THAT THE DRIVES TO BE! CHECKED ARE LOADED 
WITH DISKS AND ARE IN ^RUM^ *WRT ENABLE* THEM 9 
CHECK THAT f WRT PROT # LIGHT ON THESE DRIVES IS OFF, 
PUT DRIVES THAT ARE NOT TO BE TESTED ON 'LOAD', 

4.1 t 3 LOAD ADDRESS 200 

4.1.4 SET SWITCHES IF DESIRED (SEE SEC 6®0) 
PRESS START, 

4.1.5 THE PROGRAM IDENTIFIES ITSELF 

RKIS DYNAMIC TEST 
MAIMDEC-il^D^RKL-E 

THEM IT PROCEEDS TO FIND WHICH DRIVES ARE PRESENT 

AND PRINTS OUT THE DRIVES FOUND® IF AM RK*°05F 

IS DETECTED^ AM F IB APPENDED TO THE DRIVE NUMBERS 

DRIVES PRESENT 


i 

AFTER TYPING OUT THE DRIVE NUMBER THAT IS GOING TO 
BE TESTED^ EXECUTION OF THE TESTS START® 

AFTER ALL THE TESTS HAVE BEEN EXECUTED ON ONE DRIVE 
THEY ARE EXECUTED ON THE NEXT DRIVE? IF PRESENT® 
THIS IS REPEATED TILL ALL DRIVES ARE TESTED® 

AT THE END OF A PASS THE FOLLOWING IS TYPED OUTl 

END PASS X X«0,l#2. 9 . a , 9 

CONTROL IS TRANSFERRED BACK TO THE BEGINNING OF THE 
PROGRAM AND RE^EXECUTION BEGINS, 

4,2 PKDP DUMP MODE 

4®2 8 l THE PROGRAM IS LOADED BY THE RKDP MONITOR, 

4.2.2 SET SAn2QO f SELECT ANY SWITCHES YOU WANT AND PRESS 
START® 

4 8 2®3 THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT! 
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# TO TEST DRIVE ®N @ HALT PROGRAM, REMOVE RKDP PACK AMD REPLACE IT 
WITH A WORK PACK f CLEAR LOCATION 40# AND RESTART PROGRAM^ 



4,3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE 
®H% AFTER IDENTIFYING ITSELF, THE FOLLOWING MESSAGE 
APPEARS! 

^DRIVE # N* NOT TESTED^ 

DRIVE ®M® WILL NOT BE TESTED SINCE THE RKDP PACK IS ON 
THAT DRIVE, 

.4,4 ACT11 MODE 

THE PROGRAM IS LOADED BY THE ACTli MONITOR® AFTER 
IDENTIFYING ITSELF # ASCERTAINS THE NUMBER OF DRIVES 
PRESENT AND PROCEEDS TO TEST EACH OF THEM AS BEFORE, 

5,0 DRIVE SELECTION 

IF AMY PARTICULAR DRIVE IS TO BE SELECTED FOR 

TESTING* PUT THAT DRIVE ON ^RUN% f WRITE ENABLE*. 

PUT THE REST OF THE DRIVES ON ^LOAD% ^WRITE LOCK*. 
THEN START AS USUAL. 

6 S SWITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I t E, AN 11/34) 
THE PROGRAM $ILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A ^SOFTWARE* SWITCH REGISTER® THE 
^SOFTWARE^ SWITCH REGISTER IS LOCATED AT LOCATION 176 (8), THE 
SETTINGS OF THE ^SOFTWARE* SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A ^CONTROL G # , THE PROGRAM WILL 
RECOGNIZE THE ^CONTROL G # WHENEVER THE PROGRAM ENTERS 
THE SCOPE ROUTINE OR BEGINS A NEW TEST 9 THE 

^SOFTWARE** SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE! 



*SWR ■ NNNNNN 



NEW 



EACH TIME SWITCH SETTING ARE ENTERED* THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED^ LEADING EEROS ARE NOT REQUIRED®? *RUBOUT* 
^CONTROL U @ FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTR*. 



AND 



ON PROCESSORS WITH HARDWARE SWITCH REGISTERS^ THE # SOFTWARE* SWITCH 
REGISTER nkl BE USED® IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
^UP # POSITION ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
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^SOFTWARE* REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
BE FOLLOWED® 



SW<15>sl 
SW<13>»1 

SW<11>b1 

8w<ob>bi p 

S$<06>sp| /^ 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR PRINTOUTS 

CYCLE ON ERROR TO THE PREVIOUS 

*SCOPE # STATEMENT 

DUMP ALL RKU REGISTERS ON ERROR 

RING BELL ON ERROR 

LOOP ON SPECIFIC ERROR 

LOOP ON TEST INDICATED BY USER (SEE 

SEC, 6 8 83 

TYPE SEEK TIMER 

TYPE THE GRAPHS 

PRINT THE COMPLETE GRAPH 



SW<02>»1 



SW<00>^i 



6f 



TERMINATE FUNCTION SELECTED BY USER 
DROP THE DRIVE AFTER MAXIMUM 
ALLOWABLE NUMBER OF ERRORS OCCUR 
ASK FOR PATTERN TO BE WRITTEN OR 
WRITE CHECKED (FUNCTION SELECTION 
PROGRAM) 



6 @ i 



SW<15> 



THE PROGRAM HALTS ON ENCOUNTERING AN ERROR* AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTINENT 
INFORMATION, PRESSING "CONTINUE® RESTORES NORMAL 
OPERATION OF THE PROGRAM, 



6,2 



SW<I4> 



THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON , THIS SWITCH IS 
USED NORMALLY ALONG WITH SW 15, 



6,3 



SW<13> 



THIS SWITCH INHIBITS ALL ERROR MESSAGES® NORMALLY 
USED $HEN LOOPING ON TEST (SW *4) op LOQOPING ON 
ERROR CSW 9) • 



6,4 



SW<I2> 



THIS SWITCH ALLOCS THE PROGRAM TO CYCLE FROM THE 
POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT® 
NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE 
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AT THE BEGINNING OF THE SUBTEST WILL B& DONE AGAIN 
AMD AGAIN, SEE SEC, 6,7 FOR A DIFFERENT KIND OF 
SCOPE LOOP f 

6,5 SW<if> 

THIS SWITCH ALLOWS DUMPXWG OF ALL RKil REGISTERS ON 
ENCOUNTERING AM ERROR, 

6 a 6 SW<iO> 



RINGS A BELL ON ERROR^ USEFUL WHEW ERROR TYPEOUT IS 
INHIBITED, 



6,7 SW<09> 



THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOP, MOTE THAT UNLIKE SW12 THE INITIALISATION OF 
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NOT 
BE DOME IN THIS CASE f THIS SWITCH IS HELPFUL WHEN A 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE 
PARAMETER IN ERROR, (EXAMPLE! RKDA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FROM i TO 177777 , 
PATTERN 561 IS GIVING ERROR? YOU HIGHT NOT WANT TO 
GO THROUGH THE §60 PATTERNS BEFORE HITTING ERROR ON 
THE S61TH PATTERN, IN THIS CASE SW 9 WILL GIVE YOU 
A SCOPE LOOP ON THE 561TH PATTERN 0NLY 9 ) 



6 8 i SW<08> 



THIS SWITCH IS USED TO SELECT A PARTICULAR TEST FOR 
EXECUTION, WHEN THE PROGRAM IS STARTED (200) WITH 
THIS SWITCH SET, THE FOLLOWING MESSAGE APEARSf 

OCTAL TEST!? 

THE USER SHOULD REPLY WITH THE TEST NUHBER (OCTAL) 
HE WANTS TO SELECT, FOLLOWED BY CARRIAGE RETURN® 



THE SELECTED TEST IS EXECUTED AGAIN AND AGAIN® TO 
GET OUT OF THIS LOOP# PUT SW 8 BACK TO S THIS WILL 
RESUME NORMAL OPERATION OF THE PROGRAM, NOTE THAT 
BEFORE TEST 4 CAN BE EXECUTED TEST 2 SHOULD HAVE 
BEEN DONE AND TEST 6 SHOULD HAVE BEEN DONE BEFORE 
TEST 7, 



6,9 SW<06> 
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THIS SWITCH WHEN SET MAKES THE PROGRAM TYPE THE SEEK 

TIMER, THIS SWITCH CAM BE SET OR RESET BEFORE OR DURING THE 

SEEK TINER EXECUTION, AND EVEN WHILE THE TYPEOUT IS 

OCCURING® 

6.10 3W<0|> 

THIS SWITCH MAKES THE PROGRAM TYPE THE GRAPHS 9 IF 
RESET BEFORE THE GRAPH-PLOTTING ROUTINE IS ENTERED, 
THE GRAPHS WILL BE SKIPPED ENTIRELY® IT CAM BE RESET 
EVEM AFTER SOME OF THE POINTS HAVE BEEN PLOTTED^ TO 
SKIP PLOTTING REST OF THE POINTS® 



6,11 SW<04> 



THIS SWITCH IS USED TO SELECT THE COMPLETE GRAPH 
OUTPUT CSEEK TIMES OF ALL CYLINDERS ARE PLOTTED) 
NORMALLY WHEN THIS SWITCH IS NOT SET^ THE SMALL 
GRAPH (ONLY SELECTED CYLINDERS PLOTTED) IS PRINTED 
OUT, 



6,12 $W<03> 



THIS SWITCH WHEN SET TERMINATES THE EXECUTION Of THE 
FUNCTION SELECTED BY THE USER CSAs210>, A NEW 
FUNCTION MAY BE INITIATED NGW 8 IF YOU WANT TO KEEP 
ON LOOPING ON THE SAME FUNCTION, PUT SW 3 DOWN® SEE 
SEC, 9,0, 



6,13 SW<02> 



THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FRO^ 
THE SELECTION LIST AND TESTING? AFTER MAXIMUM 
ALLOWABLE ERROR COUNT (TOTAL NUMBER OF ERRORS) ON 
THAT DRIVE IS EXCEEDED® THE MAXIMUM ALLOWABLE ERROR 
COUNT IS 6# AFTER 6 ERRORS HAVE OCCURED THE DRIVE IS 
DROPPED AND A MESSAGE ( DRIVE # XXXXX DROPPED) IS 
PRINTED,, 



6.14 SW<00> 



THIS SWITCH IS TO BE USED WITH THE FUNCTION 
SELECTION PROGRAM (SA*210). IF A WRITE OR A WRITE 
CHECK FUNCTION IS SELECTED WITH THIS SW SET, THE 
PROGRAM WILL ASK FOR THE PATTERN TO BE WRITTEN OR 
WRITE CHECKED (PATRN?) @ THE USER SHOULD TYPE IN THE 
(OCTAL) PATTERN, THIS PATTERN WILL BE WRITTEN (OR 
WRITE CHECKED) ON THE DISK® FOR FURTHER INFORMATION 
REFER TO SEC® 9 @ f 
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7 @ PROGRAM DESCRIPTION 

THE FIRST TEST IS AIMED AT DETECTING IMPEPENDING 
ELECTRO™ MECHANICAL FAILURES IN THE DRIVE AND 
INNER/OUTER LIMIT SWITCHES® 

IN THE NEXT TWO TESTS, THE DISK IS FORMATTED AND 
CHECKED FOR CORRECT FORMATTING, IF THE DISK IS 
AN RK^OSF, THE ENTIRE DISK IS FORMATTED EACH TIME 
THE EVEN DRIVE IS TESTED, NO FORMATTING IS DONE WHEN 
THE ODD DRIVE IS TESTED, THE DISK IS CHECKED EACH 
TIME FOR PROPER FORMAT^ HOWEVER^ 

IN NEXT TWO TESTS THE SEEK LOGXC# POSITIONER, ETC 
ARE CHECKED OUT BY DOING IMPLIED SEEK, USING T^O 
DIFFERENT SEEKING PATTERNS® THE FIRST ONE IS A 
DECREASING SAW-TOOTH PATTERN 

■ ■C0-3i2«0-3n-0-310 t , t .), THE SECOND ONE IS A 
CONVERGING-DIVERGING PATTERN 

C0-3i2»l»3il^2«310 t-f .}, ON GETTING AN ERROR, 
FURTHER ANALYSIS IS DOME TO FIND OUT MORE ABOUT THE 
NATURE OF ERROR, MANY TIMES ADDITIONAL INFORMATION 
IS GIVEN FOR THE CONVIENCE OF THE USER, RETRIES ARE 
DONE WHENEVER AN ERROR OCCURS^ 

IN THE SUBSEQUENT TESTS EXTENSIVE WRITING IS DONE 
USING MOPE THAN 2000 DIFFERENT PATTERNS, THE DATA 
IS READ^ (SOFTWARE) COMPARED^ AND WRITE CHECKED, 

EVERYTIME AN ERROR OCCURS RETRIES ARE D€NE^ TO CHECK 
IF IT WAS A RECOVERABLE ERROR OP NQT® THE USER CAN 
CHANGE THE PATTERNS TO BE WRITTEN ON THE DISK, THE 
DATA TRANSFER BUFFERS CAM BE RE-LOCATED BY THE ' USER 
TO DIFFERENT PARTS OF MEMORY® REFER TO LOCATIONS 
# P8UF0% ^PSUF|% # PAT1% 'PTRN01' IN THE LISTINGS 
FOR NORE DETAILS, SEE SEC 7,1, 

THE SHUNT CURRENT CHANGE TEST WHITES^ READS AND 

CHECKS FOR ERRORS ON CYLINDERS 127 AND 128, THIS 

REGION HAS CRITICAL "PACKING DENSITY 18 TO ^RITE 
CURRENT" RATIOS® 

THE SEEK TIMER PROVIDES SEEK TIMES AND GRAPHS AS 

EXPLAINED IN SEC 8,0 

A FUNCTION SELECTION SUB-PROGRAH IS PROVIDED FOR 
USER SELECTION OF FUNCTIONS® SEE SEC 9 @ 

EVERY TEST IN THE PROGRAM IS PRECEEDED BY AN 
EXPLANATION OF THAT TEST^ THE USER IS ADVISED TO 
REFER TO THAT, IF MORE INFORMATION IS NEEDED® 

7,1 PERMISSIBLE USER PROGRAM MODIFICATIONS 



; 
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THE USER CAN MAKE MINOR CHANGES IN POINTERS* TABLES, 
ETC 9 TO TAKE CARE OF HIS SPECIAL NEEDS® IT IS 
ADVISABLE TO MAKE CHANGES IF AMY? RIGHT AT THE 
BEGINING® 

7 s i g i SEEK TIMING CAN BE DOME BETWEEN ANY TWO CYLINDERS* 
BY MAKING CHANGES DESCRIBED IN THE CYLINDER ADDRESS 
TABLE AT LOCATIONS *SQAD* AMD ^SIAD^ IN THE 
LISTINGS, 

7,l f 2 IN CASE YOU HAVE A LINE PRINTER AND $ANT YOUR OUTPUT 
ON THE LIME PRINTER* CHANGE LOCATION *$TPS # TO 
177514 AND LOCATION *$TPB* TO 177516 (LINE PRINTER 
VECTORS), 

7.1,3 INPUT/OUTPUT DATA BUFFERS (FROM WHERE DATA TRANSFERS 
WILL BE DONE TO AND FROM THE DISK) CAN BE RELOCATED 
TO ANYWHERE II THE 28& OF MEMORY (DO NOT OVERLAY THE 
PROGRAM) , THIS CAN BE DONE BY CHANGING THE CONTENTS 
OF LOCATIONS TBUFO* AND ^PBUFt* TO THE STARTING 
ADDRESSES OF THE T$0 USER SELECTED BUFFERS 8 IT 
SHOULD BE NOTED THAT EACH OF THE TWO BUFFERS SHOULD 
BE 768 (DECIMAL) WORD LONG, 

7 t 1.4 FOUR DIFFERENT PATTERN GENERATOR ROUTINES HAVE BEEN 
USED IN THIS PROGRAM A® PTGENO . B, PTGEN1 C. 
PTGEN2 D e PTGENIs THEY HAVE BEEN DESCRIBED IN 
DETAIL AT CORRESPONDING LOCATIONS IN THE LISTING, 
THE ORDER IN WHICH THEY ARE CALLED IS DESCRIBED AT 
THE BEGINING OF TEST 6 9 THIS CALLING ORDER CAN BE 
CHANGED BY MAKING CHANGES IN THE FOUR POINTERS 
A.'PATO* B® *PAT1* C 9 *PAT2* O t *PAT3% THESE 4 
POINTERS CONTAIN THE STARTING ADDRESS OF EACH 
ROUTINE^ 

7.1.5 AS A SPECIAL CASE OF THE ASOVEs YOU CAN $RITE THE 
SAME TWO (OR ONE) PATTERN/S ON THE ENTIRE DISK USING 
^PTGENO* ROUTINE® TO v^RITE THE SAME ONE PATTERNS 
CHANGE LOCATION «*PAT1* TO 'PTGENO' (STARTING ADDRESS 
OF PTGENO) 

CHANGE LOCATION ^PAT2* TO ^PTGENO* (STARTING ADDRESS 

OF PTGENO) 

CHANGE LOCATION # PAT3* TO *PTGENQ # (STARTING ADDRESS 

OF PTGENO) 

FILL LOCATIONS *PTRNOi^ AND ^PTRN02* WITH THE 

PATTERN YOU $ANT e 

TO &RITE 2 DIFFERENT PATTERNS (IN ALTERNATING 

SECTORS)! 

CHANGE *PAT1% ^PAT2* AND ^PAT3* AS DESCRIBED ABOVE® 

FILL ^p&TRNOi* AND ^PATRN02* WITH THE TWO PATTERNS 

YOU WANT, 

7.1.6 IN TEST 10r IF YOU WANT TO WRITE AND CHECK CYLINDERS 
127 AND 128 WITH PATTERNS OTHER THAN THE 12 USED^ 
CHANGE ANY OH ALL OF THE 12 POINTERS # SPi # THROUGH 
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# SP12 # TO CONTAIN PATTERNS YOU WANT® 



8,0 SEEK TIMER & GRAPHS 

THE LAST TEST IN THIS PROGRAM LS THE SEEK TIMER, IN 
ORDER TO TIME THE SEEKS # THE SECTOR COUNTER HAS BEEN 
USED AS A TIME BASE® THUS THE ACCURACY OF THE TIMES 
RECORDED IS AS GOOD AS THE ACCURACY OF THE SECTOR 
COUNTER (WHICH IN TURN DEPENDS ON THE ROTATION SPEED 
OF THE DISK)® 

IN THE FIRST PART OF THIS TIMER, SOME CRITICAL SEEKS 
HAVE BEEN TIMED (CYLINDERS 0»i# 179<*181r 0-3# 0-16# 
0*®32# 0-202# 0^100} EACH SEEK IS DONE 100 TIMES* 
TIMES ARE RECORDED, THEM THE TIMES ARE SORTED OUT 
AMD A PRINTOUT IS GIVEN SHOWING HQ& MANY TIMES A 
PARTICULAR SEEK TIME WAS OBTAINED, EXAMPLES SEEK 
BETWEEN AND LAST CYLINDER WAS DONE 100 TIMES, 99 
TIMES A SEEK TIME OF 9S MS WAS OBTAINED? ONCE IT 
GAVE iOO MS® THIS GIVES THE USER AN IDEA OF HOW 
CONSISTENT ARE THE SEEK TIMES, 

IF YOU W&NT TO TIME SEEK BETWEEN ANY OTHER SET OF 
CYLINDERS, YOU CAN DO BY FOLLOWING THE INSTRUCTIONS 
AT LOCATION ^SOAD** IN LISTINGS, SEE SEC 7®i 

IN THE SECOND PART* A GRAPH OF THE "CYLINDER SEEKED 
FROM # IS PLOTTED AGAINST # SEEK TIME # e TWO GRAPHS 
ARE AVAILABLE! NORMALLY THE SMALL GRAPH IS PRINTED 
OUT, THE SMALL GRAPH PLOTS THE SEEK TIMES FOR 
SELECTED CYLINDERS (ABOUT 49} COVERING THE RANGE 
FROM CYLINDER TO 202 8 IT GIVES THE USER A QUICK 
SEEK CHARACTERISTICS OF A DRIVE® 

THE OPTIONAL COMPLETE GRAPH (SW 4) GIVES A GRAPH 
SIMILAR TO THE ABOVE ONE, BUT PLOTS ALL THE 
CYLINDERS (203). 

THE GRAPH SHOWN ON LAST PAGE IS A SAMPLE OUTPUT, IT 
SHOULD BE REALIZED THAT DIFFERENT DRIVES MAY HAVE A 
SLIGHTLY DIFFERENT CHARACTERISTIC , 



9®0 FUNCTION SELECTION PROGRAM 



THIS PROGRAM GIVES THE USER A CAPABILITY TO SELECT A 
FUNCTION AND EXECUTE IT# FROM THE CONSOLE TELETYPE® 

STARTING ADDRESSis2iQ 

ON STARTING THE PROGRAM AT 210^ THE FOLLOWING 
QUESTION APPEARS! 

FUNCTION? 



" ) 
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THE REPLY SHOULD BE| 



ALL COMMANDS SHOULD 
RETURN DEPENDING 



^R FOR WRITE 

WC FOR WRITE CHECK 

RD FOR READ 

RC FOR READ CHECK 

CR FOR CONTROL RESET 

DR FOR DRIVE RESET 

SK FOR SEEK DR 



BE 
ON 



TERMINATED BY A CARRIAGE 
WHICH FUNCTION IS GIVEN THE 



FOLLOWING QUESTIONS APPEAR'! 

RKBA? TYPE IN THE BUS ADDRESS (OCTAL) 

FOLLOWED BY A C @ R 9 

RKDA? TYPE IN THE DISK ADORES (OCTAL) 

FOLLOWED BY C @ R f 



IF k NON-EXISTENT CYLINDER OR SECTOR 
THE QUESTION IS REPEATED AGAIN, 



IS SELECTED* 



DWORDS? TYPE IN THE NUMBER OF WORDS YOU WANT 

TO TRANSFER® IT SHOULD BE IN OCTAL® THUS IF YOU 
$ANT TO READ A SECTOR TYPE IN 400 FOLLOWED BY C 9 R® 
ANY NUMBER OF WORDS CAN BE TRANSFERRED DEPENDING ON 
THE BUFFER SIZE AVAILABLE® 

FOR A WRITE FUNCTION! IF SWO IS SET TO 1 THE PROGRAM 
WILL ASK FOR THE DATA PATTERN TO BE WRITTEN! 

PATRN? THE USER SHOULD TYPE IN THE DATA 
PATTERN (OCTAL) TO BE WRITTEN # FOLLOWED BY <CR>« THE 
PATTERN WILL BE WRITTEN ON THE DISK® NOTE THE NUMBER 
OF NORDS TO BE WRITTEN AND THE DISK ADDRESS SHOULD 
BE SPECIFIED® 

FOR A WRITE CHECK FUNCTION! IF S$ IS SET TO I, THE 
USER IS ASKED FOR THE PATTERN TO BE WRITE CHECKED! 
PATRN? THE USER SHOULD TYPE IN THE (OCTAL) PATTERN, 

FOR h SEEK FUNCTION! CYLi? CYL2? IN REPLY TO THESE^ 
TYPE IN THE CYLINDER NUMBERS (OCTAL) BETWEEN &HICH 
THE SEEK IS Tp BE DONE® IF A NON EXISTENT CYLINDER 
IS TYPED IN THE QUESTION IS REPEATED AGAIN® 



THE FUNCTION IS EXECUTED AGAIN AND AGAIN, TO GET 
OUT OF THIS LOOP SW 3 SHOULD BE SET # AT THIS POINT 
THE QUESTION (FUNCTION?) IS ASKED AGAIN® 

IF UPON EXECUTION OF A FUNCTION AN ERROR OCCURS IT 
IS REPQRTEDt ALL SWITCH OPTIONS WHICH APPLY TO ANY 
OTHER ERRORf ALSO APPLY TO THIS ERROR f 
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IF DM INPUTTING A NUMBER OR COMMAND A MISTAKE IS 
MADE# THE INPUT STRING CAN BE DELETED BY HITTING 
^RUBOUT # KEY# THE NEW STRING CAN BE TYPED IN AGAIN, 

10 @ ERROR INFORMATION 

WHENEVER AN ERROR MESSAGE IS PRINTED OUT^ Alii, 
REGISTERS AND OTHER . DATA PERT&1NINN6 TO THE ERROR 
ARE ALSO GIVEN, RKDS^ RKER,,,RKBA INDICATE THE 
CONTENTS OF THE CORRESPONDING REGISTERS AT THE TIME 
OF ERROR® 

EVERY ERROR MESSAGE CONTAINS A PC . THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
CALL IS LOCATED^ THE ERROR M£ggAGE # BECAUSE OF 
PRACTICAL CONSIDERATIONS IS MADE SHORT AND 
MEANINGFUL® THE USER IS ADVISED TO LOOK UP THE PC 
IN THE PROGRAM LISTING* INHERE HE MILL FIND MORE 
INFORMATION ABOUT THE ERROR, IN MANY INSTANCESf A 
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR 
REPORT® h LITTLE DELIBERATION AND CAREFUL 
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY 
HELPFUL® k BRIEF EXPLANATION OF WHAT IS BEING 
CHECKED IN THE SUBTEST IS GIVEN AT THE BEGINNING OF 
EVERY SUBTEST, ALL THE NUMBERS GIVEN WITH ERROR 
MESSAGES ARE IN OCTAL, 

AT TIMES WHEi AN ERROR OCCURS BESIDES THE ERROR 
PRINTOUT MORE PRINTOUTS OCCUR, THEY ARE GIVEN TO 
HELP THE USER UNDERSTAND THE PROBLEM® 

11,0 UNEXPECTED TIMEOUTS AND RKH INTERRUPTS 

WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH 
TIME OUT OCCURRED IS TYPED OUT AND THE PROGRAM 
HALTS, IF IT IS INTACT* IT CAN BE RESTARTED BY 
PRESSING CONTINUE® 

IF AN UNEXPECTED RKlt INTERRUPT OCCURS THE PROGRAM 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
THEN HALTS® PRESSING CONTINUE WOULD RESTART THE 
PROGRAM FROM BEGINNING, 



12,0 COMMONLY USED SUBROUTINES 

A BRIEF EXPLAIN&IION OF EVERY SUBROUTINE IS GIVEN IN 

THE LISTINGS (JUST BEFORE THE CODE FOR THAT 
SUBROUTINE) , ALL SUB-ROUTINES ARE LISTED IN THE 
^TABLE OF CONTENTS" FOUND AT THE BEGINNING OF 
LISTINGS, THESE ARE TWO WAYS IN WHICH ROUTINES ARE 
CALLED^ l t JSR PCfROUTINE 2, THROUGH AN ENCODED 
TRAP INSTRUCTION^ THE LOWER BYTE OF THE ^TRAP* 
INSTRUCTION IS USED TO INDEX THROUGH THE TRAP TABLE 
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C$TRPAD) FOR THE STARTING ADDRESS OF THE DESIRED 
ROUTINE^ 

13-.0 SAMPLE GRAPH AND SEEK TIMER OUTPUTS 

*# OF SEEKS** INDICATES THE NUMBER OF TIMES A PARTICULAR 
*SEEK TINE* WAS OBTAIN£D a NOTE THAT TIMES ARE RECORDED FOR 
BOTH FORWARD AND REVERSE SEEKS? BETWEEN A SET OF CYLINDERS, 

SEEK TIME SCALE FACTOReO.Ol MILI SECS 



« OF 
SEEKS 



SEEK 

TIME 



# OF 
SEEKS 



SEEK 
TIME 



CYLSfQ-202 
FR^RD 

100 



9075 



REVRSE 
100 



9075 



CYLSfO«*i 
FRWRD 

100 



825 



REVRSE 
100 



1155 



CYLS1179^181 
FRWRD 

100 



1155 



REVRSE 
100 



1159 



CYLSfO-3 
FRWRD 

100 



1485 



REVRSE 
100 



1485 



CYLSfO^lS 
FR$RD 

100 



3135 



REVRSE 
100 



3135 



CYLSlO-32 
FR^RD 

100 



3795 



REVRSE 
100 



3795 



CYLSlO-100 
FRSaJRD 

100 



5775 



REVRSE 
100 



5775 
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X AXIS • SEEK TIME .- MILI SECS 
¥ AXIS ™ CYLINDER 3EEKED FgOM 



##SAMPLE OUTPUTS 



0- 

i« 

2- 

3- 

4" 

6< 

8- 

10- 

12- 

14- 

16- 

18" 

20® 

25® 

3d® 

35® 

40® 

45® 

50® 

55« 

60® 

65* 

70® 

75® 

80® 

85* 

90® 

95® 

100® 

105- 

110® 

115- 

120« 

125- 

130« 

135- 

140- 

145- 

150- 

155- 



10 



20 



30 



40 



50 



60 



70 
»X.. 



80 
• I — 



90 



100 110 120 



130 
■I 



160« 

165® 
170® 
!75« 
180* 
185- 
190® 
195- 
200* 
202- 
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825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
86b 
867 



JITLE MD^il>®DZRKL«®£, RKI1-RKQ5 DYNAMIC TEST 
^COPYRIGHT CO 1974,1977 
^DIGITAL EQUIPMENT CQRP 9 
«*MAYNARD, MASS* 01754 
# 
^PROGRAM BY JIM KAPAD1A 

*THIS PROGRAM WAS ASSEMBLED USING THE PDP*»H MAINDEC SYSMAC 

^PACKAGE CMAXNDEC«ii-DZGAC*»C3), JAN 19, 1977 , 

» 

^JANUARY 197S 

PREVISED MARCH 1976 BY TOM SAWYER 
PREVISED BY CHUCK HESS, AUGUST, 1976 



OPERATIONAL SWITCH SETTINGS 
SWITCH USE 



15 
14 
13 

12 
10 
9 
8 
6 
5 
4 

3 

2 



11 



'SCOPE" 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

CYCLE ON ERROR TO PREVIOUS 

BELL ON ERROR 

LOOP ON ERROR 

SELECT TEST TYPED IN BY USER 

EXECUTE THE SEEK TIMER (TEST 11) 

TYPE THE SEEK TIMER GRAPHS (TEST 11} 

TYPE THE COMPLETE GRAPH (ALL SEEK TIMES) 

NOTE, OTHERWISE YOU GET SMALL GRAPH 

TERMINATE FUNCTION SELECTED BY USER 

(FOR FUNCTION SELECTION PROGRAM SA&210) 

DROP THE DRIVE AFTER MAXIMUM ALLOWABLE 

NUMBER OF ERRORS HAVE OCCURED 

ASK FOR PATTERN TO BE WRITTEN (OP WRITE 

CHECKED), IN FUNCTION SELECTION PROGRAM 

DUMP OUT ALL RK11 REGISTERS ON ERROR 



1* 



YOU ARE ADVISED TO READ THE DOCUMENT FOR THIS PROGRAM,, 
FUNCTION SELECTION PROGRAM STARTS AT 210 8 
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868 




869 




870 




871 


001100 


872 




873 




874 




875 




876 


000011 


877 


000012 


878 


000015 


879 


000200 


880 


177776 


881 




882 


177774 


883 


177772 


884 


177570 


885 


177570 


886 




887 




888 


000000 


889 


000001 


890 


000002 


891 


000003 


892 


000004 


893 


000005 


894 


000006 


895 


000007 


896 


000006 


897 


000007 


898 




899 




900 


000000 


901 


000040 


902 


000100 


903 


000140 


904 


000200 


905 


000240 


906 


000300 


907 


000340 


908 




909 




910 


100000 


911 


040000 


912 


020000 


913 


010000 


914 


004000 


915 


002000 


916 


001000 


917 


000400 


918 


000200 


919 


000100 


920 


000040 


921 


000020 


922 


000010 


923 


000004 
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9 SBTTL BASIC DEFINITIONS 

f**INITIAL ADDRESS OF THE STACK POINTER #■»* 1100 #*# 
STACKS 1100 

9 EQUIV EMT, ERROR jfBASIC DEFINITION OF ERROR CALL 

9 EQUIV IOT, SCOPE fjBASIC DEFINITION OF SCOPE CALL 

^MISCELLANEOUS DEFINITIONS 

IjCODE FOR HORIZONTAL TAB 

fjCODE FOR LINE FEED 

ffCODE FOR CARRIAGE RETURN 

fjCODE FOR CARRIAGE RETURN^LINE FEED 

nPPOCESSOR STATUS WORD 



HT 

LF 

CR 

CRLFas 

PSs 

g E0UIV 

STKLMTs 

PIRQs 

DSWRs 

DDISPs 



11 

12 

15 

200 

177776 

PS,PSW 

177774 

177772 

177570 

177570 



jfSTACK LIMIT REGISTER 
IfPROGRAM INTERRUPT REQUEST REGISTER 
nHARDWARE SWITCH REGISTER 
ffHARDWARE DISPLAY REGISTER 



{^GENERAL PURPOSE REGISTER DEFINITIONS 



ROs 
Rl« 
R2ss 
R3«s 
R4s 
R5s 
R6»s 
R7s 
SPs 
PCs 



%0 
%1 
%2 

%3 
%4 
%5 

%6 
%7 
%6 
%7 



jfGENERAL REGISTER 
f {GENERAL REGISTER 
; {GENERAL REGISTER 
nGENERAL REGISTER 
jfGENERAL REGISTER 
{{GENERAL REGISTER 
jjGENERAL REGISTER 
ff GENERAL REGISTER 
M STACK POINTER 
H PROGRAM COUNTER 



^PRIORITY LEVEL DEFINITIONS 



PRO® 
pRls? 
PR2® 
PR3^ 
PR4ss 
PR5« 
PR6& 
PR7a 





40 

100 

140 

200 

240 

300 

340 



IfPRIORITY LEVEL 

MPRIORIIY LEVEL 1 

ff PRIORITY LEVEL 2 

jfPRIORITY LEVEL 3 

ffPRIORITY LEVEL 4 

IfPRIORITY LEVEL 5 

nPRIORITY LEVEL 6 

nPRIORITY LEVEL 7 



j# H SWITCH REGISTERS SWITCH DEFINITIONS 

SWISS 100000 

SW14® 40000 

SW13SJ 20000 

SW12SE 10000 

SWUss 4000 

SWiOs 2000 

SW09® 1000 

SWOSk 400 

SW07® 200 

SW06® 100 

SWOS® 40 

SW04® 20 

gW03ss 10 

8W02® 4 
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924 


000002 


925 


000001 


926 




927 




928 




929 




930 




931 




932 




933 




934 




93S 




936 




937 




938 


100000 


939 


040000 


940 


020000 


941 


010000 


942 


004000 


943 


002000 


944 


001000 


945 


000400 


946 


000200 


947 


000100 


948 


000040 


949 


000020 


9S0 


000010 


951 


000004 


952 


000002 


953 


000001 


954 




955 




956 




957 




958 




959 




960 




961 




962 




963 




964 




965 




966 


000004 


967 


000010 


968 


000014 


969 


000014 


970 


000014 


971 


000020 


972 


000024 


973 


000030 


974 


000034 


975 


000060 


976 


000064 


977 


000240 


978 




979 





SWCls 

SWOOk 

9 EQUIV 

g EQUIV 

9 EQUIV 

a EQUIV 

9 EQUIV 

B EQUIV 

e EQUIV 

8 EQUIV 

9 EQUIV 

8 eouiv 

?#DATA 
BIT15JS 
BIT14s 
BIT13«s 
BITlSs 
BITlls 
BITlOs 
BIT09s 
BIT088 
BIT07s 
BITQ6® 
BITOSs 
BIT04SS 
BIT03" 
BIT02s 
BITOls 
BITOOs 
9 E0UIV 
9 EQUIV 
8 EQUIV 
9 EQUIV 
8 EQUIV 
8 EQUIV 
9 EQUIV 
B EQUIV 
9 EQUIV 
.EQUIV 



2 

1 

SW09 

SW08 

SW07 

SW06 

SW05 

SW04 

SW03 

SW02 

SW01 

swoo 



,SW9 
,SW8 
,SW7 

,sws 
,&m 

,SW4 
,SW3 
,SW2 
,SW1 

,swo 



SIT DEFINITIONS (BIT00 TO BXT15) 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

8IT09*BIT9 
BIT08fBIT8 
BIT07,BIT7 
BIT05,BIT6 
BIT05,BIT5 
BIT04»BI-T4 
BIT03#B'lT3 
BIT02#BIT2 
BITQ1,BIT1 
BIT00,BIT0 



j»BASIC "CPU" TRAP VECTOR ADDRESSES 



ERRVECs 4 
RESVECs 10 
TBITVECsl4 
TRTVECs H 

BPTVECs 14 
IOTVEC= 20 
PWRVECs 24 
EMTVECs 30 
TRAPVECs34 
TKVECs 60 
TPVECs 64 
PIRQVEC=240 

• 9 SBTTL TRAP CATCHER 



JTIME OUT AND OTHER ERRORS 
^RESERVED AND ILLEGAL INSTRUCTIONS 
,»T H BIT 
j TRACE TRAP 

^BREAKPOINT TRAP (BPT) 

1 1NPUT/OUTPUT TRAP (IOT) fc#SCQPE## 

jPOWER FAIL 

jEMULATOR TRAP (EMT) #*ERROR#® 

j "TRAP" TRAP 

jTTY KEYBOARD VECTOR 

jTTY PRINTER VECTOR 

fPRQGRAM INTERRUPT REQUEST VECTOR 
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980 








981 




000000 




982 








983 








934 








985 




000174 




986 


000174 


000000 




987 


000176 


000000 




988 








989 


000200 


000137 


002462 


990 








991 




000210 




992 


000210 


105237 


001216 


993 


000214 


000137 


002462 


994 








995 








996 








997 








998 




000220 




999 




000046 




1000 


000046 


015330 




1001 




000052 




1002 


000052 


000000 




1003 




000220 




1004 









9 3 

jaALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A » 9 *2»HALT" 
^SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
f#LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

9 »174 
DISPREGl g WORD jjSOFTWARE DISPLAY REGISTER 

SWREGi „WORD nSOFTWARE SWITCH REGISTER 

sSBTTL STARTING ADDRESS(ES) > 

JMp MSTART nJU^P TO STARTING ADDRESS OF PROGRAM 



e sa210 

INCB FFUNC 
JMP §#START 
ACTli HOOKS 



fSET FLAG INDICATING SELECTION OF 
^FUNCTION PROGRAM e 



fHOOKS REQUIRED BY ACT11 
8SVPC®« 
8 s=46 
SENDAD 
e »52 
S WQRD 



j SAVE PC 

II13SET LQC e 46 TO ADDRESS OF $ENDAD IN 9 $E0P 



??2)SET LOC e 52 TO ZERO 
?} RESTORE PC 
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1005 






1006 






1007 






1008 






1009 






1010 






1011 




OOIIOO 


1012 


ooiioo 




1013 


001100 


000000 


1014 


001102 


000 


1015 


001103 


000 


1016 


001104 


000000 


1017 


001106 


000000 


1018 


001110 


000000 


1019 


001112 


000000 


1020 


001114 


000 


1021 


001115 


001 


1022 


001116 


000000 


1023 


001120 


000000 


1024 


001122 


000000 


1025 


001124 


000000 


1026 


001126 


000000 


1027 


001130 


000000 


1028 


001132 


000000 


1029 


QOH34 


000 


1030 


001135 


000 


103! 


001136 


000000 


1032 


001140 


177570 


!033 


00H42 


177570 


1034 


001144 


177560 


1035 


001146 


177562 


1036 


001150 


177564 


1037 


001152 


177566 


1038 


00U54 


000 


1039 


001155 


002 


1040 


001156 


012 


1041 


001157 


000 


1042 


001160 


000000 


1043 




' 


1044 


00H62 


000000 


1045 


001164 


000000 


1046 


00H66 


000000 


1047 


001170 


000000 


1048 


001172 


000000 


1049 


00H74 


000000 


1050 


00H76 


oooooo 


1051 


001200 


000000 


1052 


001202 


oooooo 


1053 


001204 


oooooo 


1054 


001206 


177607 000377 


1055 


001212 


077 


1056 


001213 


015 


1057 


0012H 


000012 


1058 






1059 






1060 







8 SBTTL COMMON TAGS 

;®THXS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
(#USED IN THE PROGRAM t 

8 sll00 

j START OF COMMON TAGS 

(CONTAINS PASS COUNT 

(CONTAINS THE TEST NUMBER 

(CONTAINS ERROR FLAG 

(CONTAINS SUBTEST ITERATION COUNT 

(CONTAINS SCOPE LOOP ADDRESS 

jCONTAINS SCOPE RETURN FOR ERRORS 

(CONTAINS TOTAL ERRORS DETECTED 

(CONTAINS ITEM CONTROL BYTE 

(CONTAINS MAX S ERRORS PER TEST 

(CONTAINS PC OF LAST ERROR INSTRUCTION 

(CONTAINS ADDRESS OF 'GOOD* DATA 

(CONTAINS ADDRESS OF *BAD* DATA 

(CONTAINS 'GOOD* DATA 

(CONTAINS 'BAD' DATA 
fRESERVED-»»NQT TO BE USED 

(AUTOMATIC MODE INDICATOR 
(INTERRUPT MODE INDICATOR 

(ADDRESS OF SWITCH REGISTER 

(ADDRESS OF DISPLAY REGISTER 

fTTY KBD STATUS 

(TTY KBD BUFFER 

fTTY PRINTER STATUS REG 8 ADDRESS 

(TTY PRINTER BUFFER REG 8 ADDRESS 

(CONTAINS NULL CHARACTER FOR FILLS 

(CONTAINS # OF FILLER CHARACTERS REQUIRED 

(INSERT FILL CHARS. AFTER A "LINE FEED« 

(TERMINAL AVAILABLE" FLAG (BIT<07»sOssYES) 

(CONTAINS THE ADDRESS FROM 

(WHICH ($REGO) WAS OBTAINED 

(CONTAINS (C$REGADHO) 

(CONTAINS CC$REGADH2) 

(CONTAINS C($REGAD)*4) 

jCONTAINS CC$REGAD)+6) 

(CONTAINS CC8REGADH10) 

(CONTAINS {(SREGAD3+12) 

(CONTAINS C(SREGAD)+14) 

(CONTAINS CC$REGAD)+i6) 
(CONTAINS C(SREGAD)+20) 
(ESCAPE ON ERROR ADDRESS 
(CODE FOR BELL 
(QUESTION MARK 
(CARRIAGE RETURN 
(LINE FEED 
1 1**#«##^##^#*»#^«-#*#«'##«'^#«*«-#############^###«-#«>##^###«#*###'»## 



ICMTAG! 






$PASSf 


a WORD 


( 


STSTNMg 


9 BYTE 


( 


SERFLGs 


9 BYTE 


| 


SlCNTi 


fl WORD 


t 


SLPADRi 


9 W0RD 


' | 


ILPERR; 


9 W0RD 


( 


$ERTTL{ 


„WORD 


I 


gITEMBi 


„BYTE 


( 


SERMAXi 


9 BYTE 


1 1 


$ERRPC| 


s WORD 


( 


SGDADRj 


9 W0RD 


( 


SBDADRf 


8 WORD 


f 


gGDDATi 


9 WQRD 


i 


SBDDATf 


9 W0RD 


( 




9 WORD 


( 




8 WORD 





gAUTOBi 


„BYTE 


( 


SINTAG! 


.BYTE 


J 




B WORD 





SWR| 


.WORD 


DSWR ( 


DISPLAYS 


a WORD 


DDISP f 


STKS! 


177560 




STKBS 


177562 




STPSI 


177564 




STPBS 


177566 




SNULLl 


g BYTE 


! 


SFILLSi 


S BYTE 


2 ( 


SFILLCS 


e BYTE 


12 ( 


iTPFLGf 


.BYTE 


( 


5REGAD; 


s WORD 


( 


$REGOS 


8 W0RD 


( 


$REGH 


8 W0RD 


% 


SREG2J 


.WORD 


f 


$REG3| 


8 WQRD 


( 


SREG4I 


8 W0RD 


( 


SREGSl 


g WORD 


\ 


SREG6t 


9 W0RD 


t 


$REG7l 


e WQRD 


o ? 


$REG10! 


9 W0RD 


( 


$ESCAPE:0 




$BELLj 


S ASCIZ 


<207><377><377> ? 


8QUES8 


8 ASCII 


n/ ( 


SCRLFi 


9 ASCII 


<15> ( 


SLF« 


a ASCIZ 


<12> J 
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1061 






1062 






1063 






1064 






1065 






1066 






1067 






10b8 






1069 


001216 


OOOOOO 


1070 


001220 


OOOOOO 


1071 






1072 






1073 


001222 


000 


1074 






1075 






1076 






1077 






1078 


001223 


000 


1079 






1080 


001224 


000 


1081 






1082 




001226 


1083 






1084 






1085 


001226 


oooooo 


1086 






1087 






1088 


001230 


OOOOOO 


1089 






1090 






1091 


001232 


OOOOOO 


1092 


001234 


020000 


1093 


001236 


040000 


1094 


001240 


060000 


1095 


001242 


100000 


1096 


001244 


120000 


1097 


001246 


140000 


1098 


001250 


160000 


1099 






1100 






1101 






1102 


001252 


OOOOOO 


1103 


001254 


OOOOOO 


1104 


001256 


OOOOOO 


1105 






1106 






1107 


001260 


OOOOOO 


1108 


001262 


OOOOOO 


1109 


001264 


OOOOOO 


1110 






1111 






1112 






1113 


0Qt266 


000015 


1114 


001320 


000015 


1115 


001352 


000015 


1116 







(IN CASE YOU WANT THE OUTPUT TO COME OUT ON LINE PRINTER* (IF YOU HAVE 
(ONE)* MAKE THE FOLLOWING CHANGES ABOVEl 



(CHANGE CONTENTS OF *$TPS* 
(CHANGE CONTENTS OF *$TPB* 



TO 177514 
TO 177516 



CLPT VECTOR) 



(TAGS AND GENERAL DATA AREA 



FFUNCI .WORD 
XXDPMDl ,WORD 



DRVDONi B BYTE 
DRIVSi S BYTE 
B EVEN 

DRVPTRs 



DRIVOs 
DRIVli 
DRIV2S 
DRIV3i 
DRIV4S 
DRIVSi 
DRIV6I 
DRIV7S 



RETRYll 
RETRY2I 
RETRY31 



IN ADR | 

OUTADRl 
TIMER! 



OOOOOO 
020000 
040000 
060000 
100000 
120000 
140000 
160000 



BUFR1 9 8L&8 13, 
BUFRll S BLKW 13, 
BUFR21 9 BLKW 13, 



(FLAG SET* TO INDICATE ENTRY INTO FUNCTION PROGRAM 

}IF PROGRAM LOADED BY XXDP, THE 

(LOWER BYTE HAS THE DRIVE NUMBER 

(AND THE UPPER BYTE CONTAINS THE RK05 *XXDP* CODE 

(FLAG, SET TO INDICATE THAT A 

(PARTICULAR TEST WAS SELECTED BY USER (SW 83 



(CONTAINS NUMBER OF DRIVES THAT HAVE 

(BEEN ALREADY CHECKED 

(CONTAINS TOTAL # OF DRIVES PRESENT 



(CONTAINS POINTER TO INDICATOR STARTING 
(WHICH CHECKING SHOULD BE DONE FOR NEXT 
(AVAILABLE DRIVE 

(CONTAINS THE ADDRESS OF THE DRIVE 
(BEING TESTED 

(THESE ARE FLAGS TO INDICATE 
(THAT A PARTICULAR DRIVE IS 
(PRESENTs BIT IS SET TO 
(INDICATE THAT 8 BITS 13, 14, 15 
(CONTAIN THE LOGICAL DRIVE 
(ADDRESS 



(GENERAL REGISTERS 



(CONTAINS INNER ADDRESS 
(CONTAINS OUTER ADDRESS 



(GENERAL BUFFERS 
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1117 






1118 






1119 






1120 






1121 






1122 


001404 


026446 


1123 






1124 


001406 


031446 


1125 






1126 






1127 


001410 


000000 


1128 


001412 


000000 


1129 






1130 






1131 


001414 


010106 


1132 






1133 


001416 


010170 


1134 






1135 


001420 


010272 


1136 






1137 


001422 


010334 


1138 






1139 


001424 


000000 


1140 






1141 






1142 


001426 


000000 


1143 






1144 


001430 


000000 


1145 






1146 


001432 


000000 


1147 






1148 


001434 


000000 


1149 






1150 


001436 


000000 


1151 






1152 


001440 


000000 


1153 






1154 


001442 


000000 


1155 






1156 


001444 


000000 


1157 






1158 


001446 


000000 


1159 






1160 


001450 


000000 


1161 






1162 






1163 






1164 






1165 






1166 






1167 






1168 


001452 


177400 


1169 


001454 


177402 


1170 


001456 


177404 


1171 


001460 


177406 


1172 


001462 


177410 



I IN CASE, YOU WANT TO USE BUFFERS STARTING AT SOME OTHER MEMORY 
fADDRESS YOU CAN DO SO BY CHANGING THE FOLLOWING POINTERS,, 
fBOTH THE BUFFERS SHOULD BE 768 (DECIMAL) WORDS LONG s 



PBUFOs IOBUF0 
PBUFlj I0BUF1 



BUFLGOi S WQRD 
BUFLGli 8 W0RD 



PATOf PTGENO 

PATH PTGEN1 

PAT2I PTGEN2 

PAT3I PTGEN3 

PRSPATf 9 W0RD 

NXTPATS ? WORD 

PGSUBRs ,WGRD 

DSKADRi aWORD 

BUSADRs 9 W0RD 

WRDCNTi 8 WORD 

WDSKAD8 e WQRD 

WBUSADs s WORD 

WWRDCNi e WORD 

BUFNOs „WQRD 

ADRES* 9 W0RD 
fRKll REGISTERS 



fPOINTER TO THE STARTING ADDRESS OF THE 

iBUFFER USED TO READ INTO FROM DIBK, 

p POINTER TO STARTING ADDRESS OF BUFFER 

I IN WHICH PATTERNS ARE GENERATED 9 (WRITING 

J IS DONE FROM THIS BUFFER) 

iFLAG FOR *IOBUF0* 

fFLAG FOR y IOBUFi* 



fADRES OF *PATRN GENERATOR 0* 

fROUTINE 

fADRES OF *PATRN GENERATOR 1* 

SADRES OF *PATRN GENRATOR 2* 

fADRES OF *PATRN GENRATOR 3* 

fCONTAINS THE POINTER TO THE 
fADRES OF 1 OF THE 3 "PATRN 
fGENRATOR* ROUTINES 
fSAME AS ABOVE 



.pCONTAINS DISK ADRES (DA) 

jCONTAINS BUS ADRES (BA) 

fCONTAINS WORD COUNT 

ICONTAINS DISK ADRES 

jCONTAINS BUS ADRES 

fCONTAINS WORD COUNT 

fCONTAINS STARTING ADRES 
JOF A BUFFER 



I IF FOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM 

j THESE (BELOW), THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD 

}BE MODIFIED SO THAT THE CORRECT REGISTER ADDRESS IS USED* 



RKDSI 


177400 


RKERj 


177402 


RKCSI 


177404 


RKWCi 


177406 


RKBAl 


177410 
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1173 


001464 


177412 


1174 


001466 


177416 


1175 






1176 


001470 


000200 


1177 






1178 






1179 






1180 






1181 






1182 






1183 






1184 


001472 


000220 


1185 






1186 






1187 






1188 






1189 






1190 






1191 






1192 


001474 


000000 


1193 


001476 


000000 


1194 


001500 


000000 


1195 


001502 


000000 


1196 






1197 


001504 


000000 


1198 


001506 


000000 


1199 


001510 


000000 


1200 


001512 


000000 


1201 


001514 


000000 


1202 


001516 


000000 


1203 


001520 


000000 


1204 


001522 


000000 


1205 






1206 






1207 






1208 






1209 






1210 






1211 






1212 






1213 






1214 


001324 


000000 


1215 


001526 


000000 


1216 


001530 


013140 


1217 


001532 


OOOOQO 


1218 


001334 


OOOOOO 


1219 


001536 


000000 


1220 


001540 


OOOOOO 


1221 






1222 






1223 


001542 


014S00 


1224 


001544 


000040 


1225 


001546 


013240 


1226 


001350 


000140 


1227 


001352 


001000 


1228 


001354 


002000 



RKDAS 
RKDBl 



177412 
177416 



RKPRIi 200 



RKVECl 220 



INDXll 

INDX2S 

INDX3S 

INDX4I 



ERCNTlg 
ERCNT2S 
ERCNT38 
ERCNT4I 
ERCNTSl 
ERCNT68 
ERCNT7I 
ERCNTSl 



jCONTAINS THE CPU LEVEL (4) AT WHICH 
iRKil NORMALLY INTERRUPTS, THIS WORD 
jSHOULD BE CHANGED IF RKil IS DESIGNATED 
jA BR LEVEL OTHER THAN 5 s EXPj IF IT 
IIS CHANGED TO 6, THE CPU LEVEL WOULD 
jBE 1 LESS (5) & HENCE THIS WORD 
SSHOULD BE 240 (BIT POSITIONS ARE 
SlDENTICAL TO THE PRIORITY BITS IN PSW) 
fCONTAINS THE NORMAL VECTOR ADDRESS 
ITO WHICH THE RK11 INTERRUPTS, IF THE 
fVECTOR ADDRESS HAS BEEN CHANGED, MODIFY 
|THIS WORD g 



fGENERAL INDEX REGISTERS 



fGENERAL REGISTERS 
fGENERAL REGISTERS 
fGENERAL REGISTERS 



j#THE FOLLOWING TABLE CONTAINS THE CYLINDERS BETWEEN WHICH THE SEEKS WILL BE 
|*TIMED a THEY HAVE BEEN SELECTED TO GIVE SOME TYPICAL SEEKS TIMES FOR THE 
!#3 SEEK SPEEDS 8 IF FOR ANY REASON YOU WANT TO TIME SEEKS BETWEEN ANY 
l#OTHER SET OF CYLINDERS, MAKE CHANGES IN THE CORRESPONDING SEEK CYLINDER 
I®ADDRESSESa 

f&OUTER CYLINDER ADDRESS, FROM WHERE SEEK WILL BE DONE 



SOADi 


13140 





S&INNER ADDRESS, 
SIADi 14500 
40 

13240 
140 
1000 
2000 



iCYLINDER 

f 

I 

f 

J 

I 

I 



179 




TO WHICH SEEK WILL BE DONE 
ICYLINDDER 202, LAST 



1 

181 

3 

16 

32 
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1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1239 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1246 
1249 
1250 
1251 
1252 
1253 
3254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
126 2 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 

1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 



001556 006200 



001560 
001562 
001564 
001566 
001570 
001572 
001574 
001576 
001600 



004262 
004626 
005124 
005614 
006622 
007360 
010440 
012176 
012740 



001602 005015 044523 000116 
001610 005015 045523 000105 



0016*6 005015 042524 
001624 021440 040440 
001632 052122 042105 



001640 
001646 
001654 

001657 
001664 
001672 
001700 
001706 
001714 

001716 
001724 
001732 



005015 
040440 
042105 

015 
020104 
047440 
046517 
020102 
000105 

054105 

044040 

000 



051120 

047502 

000 

051012 
042110 
020113 
041440 
04H01 



041520 
051104 



001733 040 050040 
001740 000040 



001742 005015 047103 



001750 020114 
001756 044504 
001764 051440 



052123 
047502 
000072 

043517 
032122 



040505 
051522 
051106 
046131 
053117 



042124 
020075 



036503 
051124 



042122 020131 
047104 052047 
052105 000 



001771 
001776 
002004 
002012 
002020 
002026 



123 
020040 
050040 
020040 
050040 

000 



041505 
054105 
044055 
042522 
044055 



051124 
041520 
051104 
053103 
051104 
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jFQLLOWING POINTERS ARE USED TO TRANSFER- CONROL TO THE 

I TEST SELECTED BY USING SW 8 . IF ANY MORE TESTS ARE 

jADDED TO THIS PROGRAM ADDITIONAL POINTERS SHOULD BE INSERTED^ 

PT1| TST1*2 

PT2I TST2+2 

PT3S TST3+2 

PT4! TST4-S-2 

PT5I TST5*2 

PT6I TST6*2 

PT7S TST7+2 

PT10I TST10-5-2 

PTlli TST11+2 



^MESSAGES & ASCII STRINGS 
MSG11 8 ASCIZ <15><12>/SIN/ 



MSG2S 
MSG3I 



8 ASCIZ <15»«12»/SKE/ 

a ASCIZ «lg»<12>/TEST ft ABORTED!/ 



MSG4? 8 ASCIZ <S15»«12»/PROG ABORTED/ 

MSG5J «ASCIZ «15>«12>/READ HDRS OK FROM CYLB ABOVE/ 

MSG68 sASCIZ /EXPCTD HDR= / 

MSG7I a ASCIZ / PCs / 

MSG108 S ASC1Z «15>«i2>/CNTRL PDY DIDN*T SET/ 

MSGllJ 9 ASCIZ /SECTR EXPC P-HDP RECV P-HDR/ 
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1285 










1286 


002027 


015 


051012 


053457 


1287 


002034 


051457 


051040 


054504 


1288 


002042 


047040 


052117 


051440 


1289 


002050 


052105 


000 




1290 










1291 


002053 


040 


052040 


054522 


1292 


002060 


021440 


000072 




1293 










1294 










1295 


002064 


005015 


051104 


053111 


1296 


OQ2072 


020105 


000 




1297 










1298 


002075 


040 


020040 




1299 


002100 


040 






1300 


002101 


040 






1301 


002102 


040 






1302 


002103 


040 






1303 


002104 


040 






1304 


002105 


040 






1305 


002106 


040 






1306 


002107 


040 






1307 


002110 


040 






1308 


002111 


040 


000 




1309 










1310 




002114 






1311 


002114 


000000 






1312 


002116 


000000 






1313 


002120 


000000 







MSG12I g ASCIZ <15»«12> B R/W/S RDY NOT SET" 



MSG13S ,ASCIZ / TRY #1/ 



9 ASCIZ <15><12>/DRIVE / 



BLNK13! 


8 ASCII 


/ 




BLNK10? 


8 ASCII 


/ 


/ 


BLNKS9S 


B ASCII 


/ 


/ 


BLNKSSe 


.ASCII 


/ 


/ 


BLNKS7! 


e ASCII 


/ 


/ 


BLNKS6I 


e ASCII 


/ 


/ 


BLNKS51 


g ASCII 


/ 


/ 


BLNKS4I 


„ASCII 


/ 


/ 


BLNKS3I 


9 ASCII 


/ 


/ 


BLNKS2! 


B ASCII 


/ 


/ 


BLNKSlJ 


9 ASCIZ 

9 EVEN 


/ 


/ 


FDRIVEs 









FDRVEii 









DRHOLDl 
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1314 






1315 






1316 






1317 






1318 






1319 






1320 






1321 






1322 






1323 






1324 






1321 






1326 






1327 






1328 


002122 




1329 






1330 






1331 






1332 






1333 






1334 






1335 






1336 






1337 


002122 


024314 


133S 


002124 


025500 


1339 


002126 


026334 


1340 


002130 


000000 


1341 






1342 






1343 






1344 


002132 


024373 


1345 


002134 


025500 


1346 


002136 


026334 


1347 


002140 


000000 


134B 






1349 






1350 






1351 


002142 


024407 


1352 


002144 


025300 


1353 


002146 


026334 


1354 


002150 


000000 


1355 






1356 






1357 






1358 


002152 


024423 


1359 


002154 


025500 


136 


002156 


026334 


1361 


002160 


000000 


1362 






1363 






1364 






1365 


002162 


024441 


1366 


002164 


025500 


1367 


0Q2166 


026334 


1368 


002170 


000000 


1369 







,38 TIL ERROR POINTER TABLE 

ffcTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR* 

}#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

^LOCATION SITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT^ 

;#NOTEU IF SITEMB IS THE ONLY PERTINENT DATA IS ($ERRPC) 9 

J&NOTE2 8 EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS! 



I* 
l# 
f» 
1* 


EM 
DH 
DT 

DF 




llPOINTS TO THE 
nPOINTS TO THE 
ff POINTS TO THE 
f| POINTS TO THE 


ERROR 
DATA 
DATA 
DATA 


MESSAGE 
HEADER 

FORMAT 


$ERRT8s 
















J ERROR 
1 


ITEMS TABLE 








J ITEM 


5 
? 
1 














EMI 
DH1 
DTi 



jCNTRL 

|PC 

?$ERRPC 


RDY DIDN 
RKCS 
SREGO 


'T SET AFTER SEEK 
RKER RKDS RKDA 
$REG1 SREG2 SREG3 


jITEM 


2 














EM2 
DH1 
DTI 



fSIN 'ON 
J PC 
jlERRPC 


SEEK 
RKCS 
$REGO 


RKER 
SREG1 


RKDS 
$REG2 


RKDA 
$REG3 


1 ITEM 


3 














EM3 
DH1 
DTI 



JDRE ON 

fPC 

fgERRPC 


SEEK 
RKCS 
IREGO 


RKER 
SREG1 


RKDS 
SREG2 


RKDA 
SREG3 


jITEM 


4 














EM4 
DH1 


j "ERR* 
J PC 


DN SEEK 
RKCS 


PKER 


RKDS 


RKDA 



| ITEM 



EMS 
DH1 
DTi 




jSEPRPC IREGO $REG1 SREG2 SREG3 



}*DRU B ON SEEK} PUT DRIVE ON 'LOAD* BACK TO *RUN* 
?PC RKCS PKER RKDS RKDA 
flERRPC SREGO SPEG1 SPEG2 SREG3 
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1370 






1371 






1372 


002172 


024510 


1373 


002174 


025500 


1374 


002176 


026334 


1375 


002200 


000000 


1376 






1377 






1378 






1379 


002202 


024545 


1380 


002204 


02SS76 


1381 


002206 


026350 


1382 


002210 


000000 


1383 






1384 






1385 






1386 


002212 


024564 


1387 


002214 


025576 


1388 


002216 


026350 


1389 


002220 


000000 


1390 






1391 






1392 






1393 


002222 


024615 


1394 


002224 


025653 


1395 






1396 


002226 


026366 


1397 






1398 


002230 


000000 


1399 






1400 






1401 






1402 


002232 


024633 


1403 


002234 


025576 


1404 


002236 


026350 


1405 


002240 


000000 


1406 






1407 






1408 






1409 


002242 


024655 


1410 


002244 


025750 


1411 


002246 


000000 


1412 


002250 


015456 


1413 






1414 






1415 






1416 


002212 


024704 


1417 


002254 


02S767 


1418 


002256 


026350 


1419 


002260 


000000 


1420 






1421 






1422 






1423 


002262 


024757 


1424 


002264 


025750 


142S 


002266 


000000 



jITEM 



f ITEM 



pITEM 



EM6 
DH1 
DTI 




EM7 
DH7 
DT7 





fITEM 10 



EM10 
DH7 
DT7 


11 

EMU 
DH11 

DTI1 

' 

12 

EM12 
DH7 
DT7 




j ITEM 13 



EM13 
DH13 

ESR13 



jITEM 14 



EM14 
DH14 
DT7 




I ITEM IS 



jR/W/S RDY NOT SET AFTER SEEK 

| PC RKCS RKER RKDS RKDA 

fgERRPC 8REGQ $REG1 $REG2 $REG3 



RKDA 

6REG3 



RKDA 
IREG3 



CYLINDER 
SREG4 



CYLINDER 
SREG4 



MS15 
DHI3 




|SXN ON WRITE FMT 

J PC RKCS RKER RKDS 

ISERRPC SREGO gREGi SREG2 



S*ERR* ON DOING WRITE FMT 
?PC RKCS RKER RKDS 
HERRPC SREGO SREG1 $REG2 



JSIN ON READ FMT 

J PC RKCS , RKER RKDS 

?DRV# CYL SUR SEC 

flSERRPC gREGQ SREG4 0REG2 

|$REG4 SREG5 IREG6 $REG7 



f'ERR* ON READ FMT 

fPC RKCS RKER RKDS 

ISERRPC SREGO $REG1 REG2 



f WRONG HEADERS FROM *SEC * 
f SECTOR-* HEADER RECVD 



|,USE THIS SUBROUTINE FOR TYPING OUT ERROR DATA 



jERROR ON IMPLIED SEEK FROM CYLA TO CYLB 
|PC CYLA CYLB RKER RKDS TRY# 
flERRPC gREGO SREGi SREG2 SREG3 IREG4 



fREAD WRONG HDRS FROM CYLB ABOV 
&SEC8 HEADER RECVD 



RKDA 
$REG3 



CYLINDER 
$REG4 
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1426 


002270 


015364 


1427 






1428 






1429 






1430 


002272 


025021 


1431 


002274 


026046 


1432 


002276 


026350 


1433 


002300 


000000 


1434 






143S 






1436 






1437 


002302 


02SI26 


1438 


002304 


026123 


1439 


002306 


026410 


1440 


002310 


000000 


1441 






1442 






1443 






1444 


002312 


025174 


1445 


002314 


025750 


1446 


002316 


OOOOOO 


1447 


002320 


015532 


1448 






1449 






1450 






1451 






1452 


002322 


025262 


1453 


002324 


025500 


1454 


002326 


026334 


1455 


002330 


OOOOOO 


1456 






1457 






1458 






1459 


002332 


025316 


1460 


002334 


025500 


1461 


002336 


026334 


1462 


002340 


OOOOOO 


1463 






1464 






1465 






1466 


002342 


025341 


1467 


002344 


025653 


1468 






1469 


002346 


026366 


1470 






1471 


002350 


OOOOOO 


1472 






1473 






1474 






1475 


002352 


025362 


1 47b 


002354 


026161 


1477 






1473 


0023S6 


026422 


1479 






1480 


002360 


OOOOOO 


1481 







I ITEM 



j ITEM 



{ITEM 



jITEM 



ESRIS 

16 

EMI6 
DH16 
DT7 


17 

MSi? 
DH17 
DT17 




I ITEM 20 



EM20 
DH13 

ESR20 



21 

EM21 
DH1 
DTI 


22 

EM22 
DHi 
DTI 


23 

EM23 
DH11 



fITEM 24 



EM24 
DH24 



DT24 



08103 PAGE 30 
?GQ TO ^ESRIS* FOR TYPING OUT 



fREAD WRONG? FIRST WORD FROM SECTOR 0, 
| PC CYLA CYLB EXPCT RECVD 
flEPRPC SREGO SREGI IREG2 SREG3 



"CYLB" (ON IMPLIED SEEK FROM CYLA 
TRY# 
SREG4 



fREAD FIRST WORD FROM SECTOR i, 
? Pd CYLB EXPCT RECVD 
ISERRPC SREGO SREGI 8REG2 



'CYLB* ABOVE 



jREAD WRONG HEADER ON IMPLIED SEEK FROM *CYLA* TO 'CYLB* 
I SECTOR 4 HEADER RECVD 

jUSE THIS SUBROUTINE FOR TYPING OUT ERROR DATA 



jEROR ON DOING WRITE ON DSK 
j PC RKCS RKER RKDS 
jSERRPC IREGO SREGI SREG2 



|SIN ON DOING WRITE 
}PC RKCS RKER 
jSERRPC SREGO SREGI 



I HE ON DOING READ 
}PC RKCS RKER 
fDRV# CYL SUR 
fSERRPC $REG0 SREGI 
|$REG4 SREG5 $REG6 



jCSE ON READ 

jpc tpy# 

?DRV# CYL 

j$ERRPC IREG10 

?$REG4 SREG5 



RKCS 
SUR 
SREGO 
$REG6 



RKDS 
SREG2 



RKDS 
SEC 
SREG2 
$REG7 



RKER 
SEC 
$REGi 
SREG7 



RKDft 
$RSG3 



RKDft 
8REG3 



RKDS 
SPEG2 



RKDA! 
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1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
S494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 



002362 025376 

002364 026266 

002366 OOOOOO 

002370 015620 



002372 025440 
002374 025653 



002376 026366 
002400 OOOOOO 



002402 025456 
002404 026161 



002406 026422 
002410 OOOOOO 



002412 025473 

002414 025500 

002416 026334 

002420 OOOOOO 



MACY11 30(1046 

ERROR POINTER 

I ITEM 25 

EM25 
DH25 

ESP25 

» ITEM 26 

EM26 
DH11 



I ITEM 27 



) 14«JUL«77 

TABLE 
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I ITEM 



jDATA ERROR ON READ FROM DISK ADDRESS 
?WQRD8 EXPCT RECVD CYL SUR 



I USE THIS ROUTINE FOR ERROR REPORTING 



I HE ON WRT CHK 
j PC RKCS 
|DRV# CYL 
fSERRPC gREGO 
jgREG4 $REG5 



RKER 


RKDS 


SUR 


SEC 


SREGI 


SPEG2 


SREG6 


IREG7 



EM27 
DH24 

DT24 




$5tfRT CHK ERDR 
J PC TRY# 
?DRV# CYL 
fSERRPC SREG10 
?$REG4 IREG5 


RKCS 

SUR 

IREGO 

IREG6 


RKER 
SEC 
SREGI 
SREG7 


RKDS 
SREG2 


30 










EM30 
DHI 

DTi 



p ERROR 

|PC RKCS 

IIERRPC SREGO 


RKER 
tREGl 


RKDS 
IREG2 


RKDA 

SREG3 



002422 
002424 
002426 
002430 
002434 

002454 
002454 
002456 
002460 



011600 
00S740 
022626 
104401 
000407 



010046 
104402 
000000 



002462 000005 
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1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1S29 
1530 
1531 
1532 
1533 
1534 
1531 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
15S6 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
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1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 



002464 
002472 
002474 
002500 
002504 
002512 
002514 
002516 
002520 
002522 
002524 
002526 
002530 



002530 
002534 
002536 
002542 
002544 

002550 
002556 
002564 
002572 
002600 
002606 
002614 

002622 
002630 
002634 
002642 
002650 



023737 
001016 
005077 
012700 
032777 
001006 
005001 
005301 
001376 
005300 
001367 
000000 



012706 
O0S026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 

012737 
005037 
112737 
012737 
012737 



001140 

001100 

017006 
000340 
017162 
000340 
022702 
000340 
023010 

000340 
001204 
000001 
002642 
002650 



000020 
000022 
000030 
000032 
000034 
000036 
000024 

000026 

001115 
O0UO6 
001110 



jTHIS IS THE HANDLER FOR UNEXPECTED TIME OUT, ■ PRESSING CONTINUE WILL 
9 RESTART THE PROGRAM , 



M-6SSI 

§4$l 



MOV 

TST 

CMP 

TYPE 

BR 

9 ASC1Z 

MOV 
TXPOC 

HALT 



£SP3*R0 fS&VE PC WHERE TIME OUT OCCURED 

-CRO) 

CSP) + ,(SP)-+ ?RESTORE STACK POINTER 

*6§$ ijTYPE ASCIZ STRING 

64g |jGET OVER THE ASCIZ 

<15><I2>/TIM0UT|PC88/ 



R0,-CSP5 



fSET UP FOR TYPING OUT 
I GO TYPE OUT OCTAL PC 



000042 0000^6 

176764 
000250 
000200 176740 



STARTl RESET jCLEAR THE BUS 

jpGIVE DRIVES TIME TO RELOAD HEADS IN CASE OF AN APT START 



CMP 
BNE 
CLR 
MOV 
BIT 
BNE 
CLR 
DEC 
BNE 
DEC 
BNE 
HALT 



@#42*?§46 

STAFTA 

@RKDA 

«5QeR0 

I200*@RKDS 

STAPTA 

Rl 

Rl 

• •2 

no 

2®$ 



STARTAl 

a SBTTL INITIALIZE THE COMMON TAGS 

SfCLEAR THE COMMON TAGS (SCMTAG3 AREA 

MOV 

CLR 

CMP 

BNE 

MOV 
jfXNXTI&LIZE 

MOV 

MOV 



jARE WE IN ACTil AUTO MODE? 

>N0, SKIP DELAY 

JSELECT UNIT 

*WAIT FQR Bg 

fDRIVE R£ADY e9 

lIN CASE e9 

?0F APT ae 

jSTART* BUT sa 

?D0N ff T WAIT sa 

jFOREVER, 

jRKDS SIT 7 (DIRVE READY) NEVER SET 



fjFIRST LOCATION TO BE CLEARED 
ffCLEAR MEMORY LOCATION 



IJLOOP BACK IF NO 
jrSETUP THE STACK POINTER 



002656 013746 000004 

002662 012737 002718 000004 

002670 012737 177570 001140 



MOV 
MOV 

MOV 
MOV 
MOV 

MOV 
CLR 
HOVB 
MOV 
MOV 
IISIZC FOR A 
fjEQUAL TO A 
MOV 
MOV 
MOV 



#$CMTAG f R6 
CR6) + 

#SWR*R6 FfDONE? 
.-6 

#STACK,.SP 
FEW VECTORS 
»SSCOPE#G*IOTVEC jjIOT VECTOR FOR SCOPE ROUTINE 
#34Q*9#I0TVEC*2 uLEVEL 7 
#SERROR,§!#EMTVEC jjEMT VECTOR FOR ERROR ROUTINE 
#340»§#EMTVEC*2 nLEVEL 7 

#STRAP,@gTRAPVEC jfTRAP VECTOR FOR TRAP CALLS 
#34Q»P#TRAPVEC*2?LEVEL 7 
#$PWRDN,9*PWRVEC m POWER FAILURE VECTOR 



S340f§#PWRVEC+2 

SESCAPE 

*l f $ERMAX 

*, # SLPADR 

#«,8LPERR 



JlLEVEL 7 

?|CLEAR THE ESCAPE ON ERROR ADDRESS 
HALLOW ONE ERROR PER TEST 
jjINITIALIZE THE LOOP ADDRESS FOR SCOPE 
IJSETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS 
8 ™l H , SETUP FOR A SOFTWARE SWITCH REGISTER® 

@8ERRVEC,«(SP3 nSAVE ERROR VECTOR 

#64S*?#ERRVEC ??SET UP ERROR VECTOR 

#DSWR f SWR jjSETUP FOR A HARDWARE SWICH REGISTER 



MD*»li«»DZRKL«Ee RKI1-RK0S DYNAMIC TEST 
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157S 


002676 


012737 


177570 


001142 


1S76 


002704 


022777 


177777 


176226 


1577 


002712 


001012 






1578 










1579 


002714 


000403 






1580 


002716 


012716 


002724 




1581 


002722 


000002 






1582 


002724 


012737 


000176 


001140 


1583 


002732 


012737 


000174 


001142 


1584 


002740 


012637 


000004 




1585 










1586 


002744 


004737 


020622 




1587 


0O27S0 


023737 


000042 


000046 


1588 


002756 


001416 






1589 










1590 










1591 


002760 


005227 


177777 




1592 


002764 


001043 






1593 


002766 


104401 


003024 




1594 










1S95 


002772 


005737 


000042 




1396 


002776 


001006 






1597 


003000 


023727 


001140 


000176 


1598 


003006 


00100S 






1599 


oolgio 


104406 






1600 


003012 


000403 






1601 


003014 


112737 


000001 


001134 


1602 


003022 








1603 


003022 


000424 






1604 










160S 


003074 








1606 


003074 


105737 


001216 




ISO? 


003100 


001404 






1608 


003102 


105037 


001216 




160® 


003106 


000137 


023172 




1610 


003112 


012700 


001230 




1611 


003116 


1OS02O 






1612 


003120 


020027 


001232 




1613 


003124 


001374 






1614 


003126 


012701 


177770 




1613 


003132 


042720 


000003 




isis 


003136 


0QS2O1 






1617 


003140 


001374 






1618 










1619 










1630 










1621 










1622 


003142 


122737 


000002 


000041 


1623 


003150 


001180 






1624 


003112 


013737 


000040 


001230 


1625 










1626 


003160 


122737 


000010 


001120 


1627 


003168 


101002 






1628 


003170 


1OS037 


001210 




1629 


003174 


005737 


000042 




1630 


003200 


001424 







MOV 
CMP 
BNE 

BR 

MOV 
RTI 

MOV 
MOV 
MOV 



#DDISP, DISPLAY 

»»i,eswR 

66$ 

65S 
#65$#(SP) 



HAND A HARDWARE DISPLAY REGISTER 

;iTRY TO REFERENCE HARDWARE SWR 

?f BRANCH IF NO TIMEOUT TRAP OCCURRED 

??AND THE HARDWARE SWR IS NOT ■ -i 

}|BRANCH IF NO TIMEOUT 

f|SET UP FOR TRAP RETURN 



#SWREGySWR , ff POINT TO SOFTWARE SWR 

#DISPREG, DISPLAY 

(SP) + ,MERRVEC ??RESTORE ERROR VECTOR 



JSR PCSTK2NT 
CMP 9*42*e«46 

BEQ 69$ 
9 SBTTL TYPE PROGRAM NAME 
IS TYPE THE NAME OF THE PROGRAM 

INC #-1 

BNE 67$ 

TYPE »68$ 
S SBTTL GET VALUE FOR SOFTWARE 



691? . 

70m 

? f ©80 f 

6701,. 
STARTIl 



7*J 

S9( 



TST 
BNE 
CMP 

BNE 
GTSWR 

BR 
MOVB 

BR 
9 ABCIZ 

TSTB 

BEG 

CLRB 

JMP 

MOV 

CLRB 

CMP 

BNE 

MOV 

BIC 

INC 

BNE 



§#42 

69$ 

SWR y #SWREG 

70$ 

70$ 

#i*$AUIOB 



J INITIALIZE THE TTY HANDLER 

jARE WE IN ACT11 AUTO MODE? 
?YES, SKIP TITLE 

IF FIRST PASS 

MFIRST TIME? 

llBRANCH IF NO 

If TYPE ASCXZ STRING 
SWITCH REGISTER 

fjARE WE RUNNING UNDER XXDP/ACT? 

MBRANCH if yes 

^SOFTWARE SWITCH REG SELECTED? 

;»BRANCH if no 

nGET SOFT«SWR SETTINGS 

pjSET AUTO-MODE INDICATOR 



67$ J?GET OVER THE ASCIZ 

<CRLF»/R&ii DYNAMIC TEST/<15X12>/MAINDEC-i 1-DZRKL-E/<CRLF> 



FFUNC 

IS 

FFUNC 

MFUNBEG 

#XXDPMD*RQ 

CRQ3* 

R0*#DRXVAD*2 

5$ 

#»10#F1 

#3,(R0)+ 

m 

61 



^FUNCTION PROGRAM SELECTED? 

?N0 

?YES # CLEAR THE FLAG 

I GO TO *FUNTION SELECTION PROGRAM* 

?CLEAR FLAGS FROM 

f'XXDPMD* TO 'DRIVAD* 



?CLEAR BIT 0*S IN 
I PRESENT* FLAGS a 



|THE FOLLOWING CODE FINDS OUT THE PROGRAM CONTROL MODES 
pP&PER TAPE (MANUAL)r ACTli* RKDP CHAIN OR DUMP 



CMPB 


#a f 41 


BNg 


ST2 


MOV 


40 ? XXDPMD 


CMPB 


#10*X»PMD 


BHI 


2S 


CLRB 


XXDPMD 


TST 


42 


BEQ 


31 



^LOADED FROM AN RK05 ? 

)BR IF NOT 

|GET DEVICE INDICATOR AND DRIVE ADDRESS OF 

^LOADING RK05 

jDRIVE ADDRESS 7 OR LESS ? 

?BR IF YES 

fDRIVE ZERO LOADED THE PROGRAM 

t CHAIN MODE OR ACT11 AUTO ACCEPT 1 

j BR IF NEITHER 



MD^Il^DZRKL^E* RKii«RK05 DYNAMIC TEST 
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1631 


003202 


104401 


0032-10 


1632 


003206 


000413 




1633 








1634 


003236 






1635 


003236 


005046 




1636 


003240 


113716 


001220 


1637 


003244 


104403 




1638 


003246 


001 




1639 


003247 


000 




1640 


003250 


000520 




1641 


003252 


005227 


177777 


1642 


003256 


001115 




1643 


003260 


104401 


003266 


1644 


003264 


000411 




1645 








1646 


003310 






1647 


003310 


005046 




1648 


003312 


113716 


001220 


1649 


003316 


104403 




1650 


003320 


001 




1651 


003321 


000 




1652 


003322 


104401 


003330 


1653 


003326 


000431 




1654 








1655 


003412 






1656 


003412 


104401 


003420 


1657 


003416 


000435 




1658 








1659 


003512 






1660 








1661 








1662 


OQ35I2 


012737 


002422 


1663 








1664 








1665 








1666 








1667 








1668 


003520 


104401 


003526 


1669 


003524 


000411 




1670 








1671 


003550 






1672 


003550 


105037 


001224 


1673 


003554 


005001 




1674 


003556 


012702 


001232 


1675 


003562 


005003 




1676 


003564 


005737 


001220 


1677 


003570 


001403 




1678 


003572 


120337 


001220 


1679 


003576 


001411 




1680 


003600 


010177 


175660 


1681 


003604 


105777 


175642 


1682 


003610 


100004 




1683 


003612 


105237 


001224 


3684 


003616 


052712 


000001 


1685 


003622 


005722 




1686 


003624 


005203 





n6ssi 

64gs 



!J67$I 

66SJ 



f 169$ S 

68$ I 



JJ718S 
70$! 



TYPE 

BR 

S ASCIZ 

CLR 
MOVB 
TYPOS 
8 BYTE 

a BYTE 

BR 

INC 

BNE 

TYPE 

BR 

8 ASC2Z 

CLR 
MOVB 

Typos. 

S BYT£ 
9 BYTE 
TYPE 
BR 



,6gg JJTYPE ASCIZ STRING 

648 JJGET OVER THE ASCIZ 
<15><12>/N0T TESTING DRIVE / 

«CSP) iCLEAR WORD ON STACK 

XXDPMD* CSP) |GET DRIVE ADDRESS 

fTYPE THE ADDRESS 

I fONLY 1 CHARACTER 

fSUPRESS LEADING ZEROS 

ST2 ?GET NUMBER OF DRIVES 

#-1 |FIRST TIME THROUGH HERE ? 

ST2 JBR IF NOT FIRST TIME 

,67$ ' i?TYPE ASCIZ STRING 

66$ ??GET OVER THE ASCIZ 

<15><12>/T0 TEST DRIVE / 



-CSP3 
XXDPMD, (SP) 



,69$ 

683 



JCLEAR WORD ON THE STACK 
?GET DRIVE ADDRESS 
?TYPE THE DRIVE ADDRESS 
,'ONLY 1 CHARACTER 
jSUPRESS LEADING ZEROS 
?|TYPE ASCIZ STRING 
ffGET OVER THE ASCIZ 



a ASCIZ / HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT/«15»«U> 



TYPE 

BR 

e ASCIZ 



»7l§ ? fTYPE ASCIZ STRING 

70$ ;jGET OVER THE ASCIZ 

/WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM/ 



000004 ST2S 



#BADTMO,ERRVEC 



?SET TIMEOUT VECTOR FOR 
?UNEXPECTED TIME OUT 



jTHIS CODE FINDS WHICH DRIVES ARE PRESENT & PRINTS OUT THE DRIVE 
jDRIVE NUMBERS THAT WERE FOUND ON LINE, 

;?TYPE ASCIZ STRING 
jjGET OVER THE ASCIZ 



j INITIALIZE N0 8 OF DRVS PRESENT 



.•INITIALIZE COUNT TO 
jLOADED FROM AN RK05 ? 

jBR IF NOT 

^CHECKING THE LOAD DRIVE ? 

jBR IF YES 

jADRES A DRIVE 

SIS IT PRESENT? 

?N0, BRANCH 

J INCREMENT TOTAL # OF DPVS 

fSET FLAG INDICATING THIS DRV PRSNT 

jINCREMENT COUNT 





TYPE 


,65S 




BR 


&4G 


j|65$l 


S ASCIZ 


<1S><12>/ 


64$S 








CLRB 


DRIVS 




CLR 


Rl 




MOV 


#DRIV0,R2 




CLR 


R3 


l«l 


TST 


XXDPMD 




BEQ 


6$ 




CMPB 


R3, XXDPMD 




BEQ 


28 


6$S 


MOV 


R1,®RKDA 




TSTB 


#RKDS 




BPL 


28 




INCB 


DRIVS 




BIS 


#1» CR25 


2Si 


TST 


CR2) + 




INC 


R3 



MD-li-DZRKL-E, 


RKll^RKOS DYNAM 


DZRKLE 9 


P11 26-APP«77 


12127 


1687 


003626 


062701 


020000 


1688 








1689 


003632 


001354 




1690 








1691 


003634 


004737 


024250 


1692 


003640 


105737 


001224 


1693 


003644 


001010 




1694 


003646 


104401 


003654 


1695 


003652 


000403 




Sb96 








1697 


003662 






1698 


003662 


000137 


015246 


1699 








1700 


003666 


005002 




1701 


003670 


012700 


001232 


1702 


003674 


105710 




1703 


003676 


001414 




1704 


003700 


104401 




1705 


003702 


001213 




1706 


003704 


010246 




1707 


003706 


104403 




1708 


003710 


001 




1709 


003711 


000 




1710 


003712 


032710 


000002 


1711 


003716 


001404 




1712 


003720 


104401 


003726 


171? 


003724 


000401 




1714 








1715 


003730 






1716 


003730 


005202 




1717 


003732 


005720 




1718 


003734 


020027 


001251 


1719 


003740 


002755 




1720 








1721 








1722 








1723 








1724 








1725 


003742 


012737 


001232 


1726 


003750 


105037 


001223 


1727 


003754 


005037 


001230 


1728 


003760 


105037 


001102 


1729 


003764 


005037 


001112 


1730 


003770 


013701 


001223 


1731 


003774 


032721 


000001 


1732 


004000 


001005 




1733 


004002 


020127 


00.1252 


1734 


004006 


001372 




1735 


004010 


000137 


015246 


1736 


004014 


010137 


001226 


1737 


004020 


014104 




1738 


004022 


005037 


002116 


1739 


004026 


005037 


002114 


1740 


004032 


032704 


000002 


1741 


004036 


001410 




1742 


004040 


005237 


002116 
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001226 





ADD 


#20000, Pi 




BNE 


1$ 




JSR 


PC,SXZEF 




TSTB 


DRIVS 




BNE 


3$ 




TYPE 


,671 




BR 


668 


f 167$ s 


9 ASCIZ 


/ NONE/ 


66$i 








JMP 


SEQP 


3$i 


CLR 


R2 




MOV 


#DRIVO»RO 


5Ss 


TSTB 


(R03 




BEQ 


4$ 




TYPE 






8CRLF 






MOV 


R2,-CSP3 




TYPOS 






9 BYTE 


1 




S BYTE 







BIT 


#2„(RG) 




BEQ 


4$ 




TYPE 


,693 




BR 


63$ 


FI69S8 


„ASCIZ 


/F7 


68$| 






41! 


INC 


R2 




TST 


CRO)* 




CMP 


R0,#DRIV7*i 




BLT 


5S 



jADRES THE NXT DRV 

?CHKD ALL 8 DRIVES? 

j IF NOT, GO CHK IF NEXT DRV 

jFIND WHICH ARE FS 
fWERE ANY DRIVES FOUND? 
?Y£S, BRANCH 
f jTYPE ASCIZ STRING 
j fGET OVER THE ASCIZ 



I IF NONE WERE FOUND, GO 

I TO THE END OF PROGRAM 

?DRIVE NUMBER 

jTABLE OF AVAIL DRIVES 

jDRIVE HERE? 

?N0 



;PUSH NO ON THE STACK 

?T0 TYPE OCTAL N0 8 

jTYPE 1 DIGIT, SUPRESS LDG Q'S 

I IS IT RK05F? 

?N0 

IjTYPE ASCIZ STRING 

? fGET OVER THE ASCIZ 



fPOINT TO NEXT DRIVE 
?NEXT DRIVE IN TABLE 
;ALL DONE? 
jNO, CHECK REST 



jFIND OUT THE FIRST CFROM 0-73 DRIVE THAT IS PRESENT,, PUT THE ADDRESS 
|0F THAT DRIVE IN »DR2VAD% INDICATE THAT DRIVE # WILL 
}BE TESTED, 



ST38 


MOV 


#DRIVO,DRVPTR 






CLRB 


DRVDON 






CLR 


DRIVAD 




NXTDRVl 


CLRB 


ITSTNM 


? RESET TEST NUMBER TO 1 




CLR 


IERTTL 


fCLEAR ERROR COUNT FOR THIS 




MOV 


DRVPTR,R1 




III 


BIT 


«1#CR1)+ 


|IS THIS DRIVE PRESENT? 




BNE 


21 


?YES, BRANCH 


4SI 


CMP 


Rl,#DPIV7+2 


fCHECKED THE WHOLE LIST? 




BNE 


1$ 


}N0 




JMP 


SEOP 


?YES, EXIT 


211 


MOV 


R1,DRVPTR 


jNO, GO AHEAD 




MOV 


•<R1),R4 


?GET DRIVE N0 9 TO BE TESTED 




CLR 


FDRVEl 






CLP 


FDRIVE 


fSHOWS F IF "1 




BIT 


*2,R4 


*RK»OSF? 




BEQ 


71 


?N0 




INC 


FDFVEi 


f SHOWS F 
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004044 


032704 


020000 


004050 


001003 




0040S2 


012737 


17777? 002114 


004060 


042704 


000003 


004064 


010437 


001230 


004070 


104401 


0020S4 


004074 


000241 




004076 


006104 




004100 


006104 




004102 


006104 




004104 


006104 




004106 


010446 




004110 


104403 




004112 


001 




004113 


000 




004114 


005737 


002116 


004120 


001404 




004122 


104401 


004130 


004126 


000401 




004132 






004132 






004132 


10S037 


001222 


004136 


032777 


000400 174774 


004144 


00144S 




004146 






004146 


104401 


004154 


004152 


000410 




004174 






004174 


104412 




004176 


012600 




004200 


001762 




004202 


020027 


oooon 


004206 


003357 




004210 


110037 


001102 


004214 


005300 




004216 


006300 




004220 


016037 


001560 001106 


004226 


033737 


001106 001110 


004234 


105237 


001222 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



rSVEN DRIVE? 
?RKQ§F AND EVEN 



BIT 


#20OO0*R4 


BNE 


71 


MQV 


#®>i,FDRIVE 


BIC 


#3,R4 


MOV 


R4,DRIVAD 


TYPE 


,MgG14 


CLC 




ROL 


R4 


ROL 


R4 


ROL 


R4 


ROL 


R4 


MOV 


R4,-(8F) 


TYPOS 




9 BYTE 


i 


9 BYTE 





TST 


FDRVEi 


BEQ 


6$ 


TYPE 


,658 


BR 


64| 


S ASCIZ 


/r/ 



004240 000177 174642 



? SET UP DRIVE- ADRES 
{TYPE OUT THE DRIVE N0 ? 



fRK-OSF? 

INO 

fjTYPE ASCIZ STRING 

MGET OVER THE ASCIZ 
p?6SSl 
64S1 

?IF SW 8 IS , SET THEN FIND OUT WHICH TEST NUMBER IS 
fSELECTED AND JUMP TO THAT TEST 8 



jCLEAR FLAG INDICATING SW8 SET 
fSW 8 SET? 
?N0, BRANCH 

j?T5fPE ASCIZ STRING 
ffGET QVEP THE ASCIZ 



?CHECK TYPED IN TEST # 
lIS LEGAL, IF NOT ASK 

jFORM POINTERS FOR THE TEST # 

jADJUST POINTERS FOR SCOPE 
?LOOP, ETC 9 

?SET FLAG INDICATING TEST # 
j SELECTED 

jGO TO THE TEST SELECTED 



fON RECOVERY FROM PO&ER FALIURE RETURN HERE 





CLRB 


LUPSW 




BIT 


#SW8,SSWR 




BEQ 


TST| 


§1$ 








TYPE 


,678 




BR 


66$ 


M67$l 


8 ASCIZ 


<15><12>/0CTAL 


S6SI 


RDQCT 






MOV 


"<SP) + ,FO 




BEQ 


5$ 




CMP 


RO,«li 




BGT 


5$ 




MOVE 


RQ,STSTNM 




DEC 


RO 




ASL 


RO 




MOV 


PT1CRQ),8LPADR 




MOV 


$LPADR,gLPERR 




INCB 


LUPSW 




JMP 


iSLPADR 



004244 
004246 



005000 
005001 



PWRFLi CLR 
CLR 



RO 
Rl 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



004250 
004252 
004254 
004256 



005201 
001376 
105200 
001374 



INC 


Rl 


BNE 


IS 


INCB 


RO 


BNE 


1$ 



004260 
004262 
004264 
004266 
004270 


000004 
OOSOOO 
005001 
00SO02 
012737 


004322 


004276 
004302 
004306 
004312 


012703 

012704 
012705 
000402 


001266 
177767 
177770 


0043H 
004316 
004320 
004322 


OOS703 
001403 
005003 

104415 




004324 


104416 




004326 
004334 
004340 
004344 
004346 
004352 


013777 
050277 
105777 
100406 
004737 
104030 


001230 
175124 
175106 

015162 


004354 
004356 
004360 


005203 
005205 
OOISIS 




004362 
004370 
004372 


012777 
005200 
001007 


oooon 


004374 
004400 


004737 
SQ4O01 


015162 


004402 
004404 
004406 

O0441O 


005203 
0OS204 
001502 
000403 





I^TEST 1 CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 
jaTHIS TEST PERFORMS 200(8) PURE SEEKS FROM CYLINDER 
?®T0 CYLINDER 312 AND BACK TO 0, IT IS SUPPOSED TO 
?®CHECK THE INNER LIMIT SWITCH AND THE MECHANICAL 
^INTEGRITY OF THE DRIVE* NOTE THAT A VISUAL CHECK FOR 
}ANY MECHANICAL FAILURES WOULD BE VERY HELPFUL, 



INITIALIZE COUNT 

INITIALIZE COUNT FOR * OF SEEKS 

CONTAINS SEEK ADRES 

SET RETURN ADRES FOR LUPING 

ON ERROR 

INITIALIZE POINTER TO THE TABLE 

ALLOW ONLY 9 CNTRL««RDY, SIN, OR R/W/S RDY ERORS 

ALLOW ONLY 8 DRU*DRE*ERR+DRY ERRORS 



WAS THERE ANY ERROP? 

NO, BRANCH 

CLR EROR FLAG 

GO DO CNTRL RESET B SUB ROUTINE 

AT *CNT 9 RST* 

GO TO *DRV 9 RST* & DO DRV RESET 

ADRES THE DRIVE 

SET SEEK ADRES 

DRIVE RDY? 

YES 

NO, GET RKCS, ER, DS, DA 

DRIVE RDY BIT IS NOT SET 

IN RKDS 

SET ERROR FLAG 

ALLOW ONLY § ERORS, IF MORE 

ABORT 

GO, SEEK 

WAIT FOR CNTRL RDY 

WAITED LONG? 

IF YES, ERROR 

GO, GET RKCS, ER, DS, DA 

CNTRL RDY DIDN 9 T SET AFTER 

SEEK WAS DONE TO CYLINDER 

SHOWN IN RKDA 9 GO TO *RKU LOGIC TESTS* 

SET ERROR FLAG 

EXIT THIS TEST IF THERE R 5 OR MORE ERRORS 



TST11 


SCOPE 


*&#######&&###«### 




CLR 


RO ; 




CLR 


Rl ! 




CLR 


R2 I 




MOV 


#20$,$LPERR i 




MOV 


#BUFR,R3 ? 




MOV 


#-UrR4 J 




MOV 


#«»10,R5 , J 




BR 


2% 


lis 


TST 


R3 r 




'BEQ 


3$ t 


2S! 


CLR 


R3 | 


20$ t 


C0N 9 RESET } 




DRV a RESET ? 


311 


MOV 


DRXVAD,$RKDA ? 




BIS 


R2,SRKDA 




TSTB 


§RKDS ? 




BMI 


21« 1 




JSR 


PC,GI4RG j 




ERROR 


30 ? 




INC 


R3 I 




INC 


RS> t 




BEQ 


m t 


2111 


MOV 


flltVRKCS | 


411 


XNC 


RO ; 




BNE 


51 




JSR 


PCGT4RG | 




ERROR 


1 I 




INC 


R3 | 




INC 


R4 i 




BEQ 


18$ 




BR 


6$ 
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171032 



1855 


004412 


105777 


17SC40 


1856 


00441© 


100364 




18S7 








1838 


004420 


oosooo 




1859 


004422 


032777 


000100 


1860 


004430 


001010 




1861 


004432 


005200 




1862 


004434 


001372 




1863 


004436 


004737 


016162 


1864 


004442 


104006 




1865 








1866 


004444 


005203 




1867 


004446 


005204 




1868 


004450 


001461 




1869 


004452 


032777 


001000 


1870 


004460 


001406 




1871 


004462 


004737 


016162 


1872 


004466 


104002 




1873 








1874 


004470 


005203 




1875 


004472 


005204 




1876 


004474 


001447 




1877 


004476 


005777 


1747S2 


1878 


004502 


100006 




1879 








1880 


004504 


004737 


016162 


1881 


004510 


104003 




18 8 2 








1883 


004512 


005203 




1884 


004514 


005205 




1885 


004516 


001767 




1886 








1867 


004520 


005777 


174732 


1888 


004524 


100006 




1889 


004526 


004737 


016162 


1890 


004532 


104004 




1891 








1*92 








1893 


004534 


005203 




1894 


004536 


005205 




1895 


004540 


001425 




1896 








1897 


004542 


012777 


002000 


1898 


004550 


001406 




1899 


004552 


0047 37 


016162 


1900 


004*556 


104005 




1901 








1902 








1903 








1904 








1905 








1906 








1907 








1908 


004560 


005203 




19 09 


004562 


005205 




1910 


004564 


001413 





174772 



174702 12$! 



MACYH 30C10465 I4»JUL«77 00103 PAGE 38 

Tl CHECK INNER LIMIT SWITCH I, ELECTROMECHANICAL INTEGRITY 

jDID CNTRL RDY SET? 
fIF NOT WAIT FOR IT 

^INITIALIZE COUNT 
IR/W/S'RDY SET? 
I YES 
fWAIT FOR R/W/8 RDY 

jGET RKCS, ER, DS, DA 

jR/W/S RDY DID NOT SET WHEN SEEK 

•WAS DONE TO CYLINDER INDICATED IN RKDA 

?SET ERROR FLAG 

? IF MAXM EROR COUNT* ABORT 

jSIN ERROR? 

jNO, BRANCH 

?G0, GET RKCS, ER, DS, DA 

jSIN ERROR? ON DOING SEEK TO 

jCYL AS SHOWN IN RKDA 

?SET ERROR FLAG 

fIF MAXM EROR COUNT REACHED* 

jABQRT THE TEST 

?DRE ERROR? 

;N0* BRANCH 

jGQ, GET RKCS, ER, DS, DA 

|DRE ON DOING SEEK TO CYLINDER 

jAS SHOWN IN RKDA 

j SET ERROR FLAG 

j IF MAXM EROR COUNT REACHED, 

f ABORT THE TEST 

;*ERR* BIT IN RKCS SET? 

jNQ, BRANCH 

;G0, GET RKCS, ER* DS, DA 

j "ERR" IN RKCS SET, ON DOING SEEK 

I TO CYL AS SHOWN IN RKDA e NOTE 

fWHICH BIT IN RKER SET? 

fSET ERROR FLAG 

j IF MAXM EROR COUNT REACHED, 

j ABORT THE TEST 

jDRU SET? 

jNO, BRANCH 

;GO r GET RKCS, ER, DS, DA 

iDRU SET, THIS 1.8 AN IRRECOVERABLE 

?ERROR 8 HENCE PUT THE DRIVE ON 

jLQAD, BACK TO RUN , DRU ERROR 

{SHOULD BE CLEARED, IF IT IS NOT 

;1) THE HEAD POSITION TRANSDVCER LAMP 

;XS INOPERATIVE 

?2J OR ERASE OR WRT CURRENT PRESENT 

fWITHOUT "WRT GATE' 

j SET EROR FLAG 

jALLOW ONLY 5 ERRORS 

j IF MORE THAN 5 



SSI 


TSTB 


9 RKCS 




BPL 


4t 


655 


CLR 


RO 




BIT 


8100,§RKDS 




BNE 


7S 




INC 


RO 




BNE 


6S*2 




JSR 


PC # GT4RG 




ERROR 


§ 




INC 


R3 




INC 


R4 ' 




BEQ 


18$ 


7$1 


BIT 


MOO0»IRKDS 




BEQ 


8$ 




JSR 


PC,GT4RG 




ERROR 


2 




INC ' 


R3 




INC 


R4 




BEQ 


183 


8$S 


TST 


@RKER 




BPL 


10$ 




JSR 


PCGT4RG 




ERROR 


3 




INC 


R3 




INC 


R5 




BEQ 


8$ 


10$8 


TST 


iRKCS 




BPL 


12$ 




JSR 


PC,GT4RG 




ERROR 


4 




INC 


R3 




INC 


R5 




BEQ 


18$ 



BIT #2000,@RKDS 

BEQ 15$ 

JSR PC,GT4RG 

ERROR 5 



INC 


R3 


INC 


R5 


BEQ 


18S 
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1911 








1912 








1913 


004566 


005702 




1914 


004570 


001402 




1915 








1916 


004572 


005002 




1917 


004574 


000647 




1918 








1919 


004576 


012702 


014500 


1920 








1921 


004602 


005201 




1922 


004604 


022701 


000200 


1923 








1924 


004610 


001241 




1925 


004612 


000404 




1926 








1927 








1928 


004614 


104401 


001640 


1929 


004620 


000137 


015224 


1930 








1931 








1932 








1933 








1934 








1935 








1936 








1937 








1938 








1939 








1940 








1941 








1942 








1943 








1944 








1945 


004624 


000004 




1946 


004626 


013737 


001230 


1947 


004634 


005737 


002114 


1948 


004640 


001003 




1949 


004642 


005737 


002116 


3950 


004646 


001125 




1951 


004650 






1952 


004650 


012702 


177152 


.195 3 


004654 


012703 


177764 


1954 


004660 


012701 


177773 


1955 


004664 


012705 


177773 


1956 


004670 


013704 


001230 


1957 


004674 


10441S 




1958 


004676 


104416 




1959 


004700 


005000 




1960 








1961 


004702 


005777- 


174SS0 


1962 


004706 


100001 




1963 








1964 


004710 


104415 




1965 








1966 


004712 


O0S046 
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Tl CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 

?G0 TO THE END OF THE PROGRAM 



TST 


R2 


fWAS SEEKING TO OP 312? 


BEQ 


16$ 


jTO 0, BRANCH 
jTO 312, 


CLR 


R2 


fSEEK NXT TIME TO 


BR 


1$ 


;G0 BAK fe SK TO 


MOV 


#14500, R2 


jSEEK NXT TIME TO 312 


INC 


Rl 


IDONE SEEKS 200 TIMES? 


CMP 


#200, Rl 




BNE 


IS 


j IF NOT, GO BAK 


BR 


TST2 


MEXIT 


TYPE 


,MSG4 




JMP 


TSTI2 





002120 



f#TE5T 2 FORMAT THE DISK 

?#THIS PROGRAM ASSUMES AN UNFORMATTED DISK AND ITS 
^FORMATTING IS DONE IN THIS TEST S A SECTOR IS FORMATTED 
f#AT A TlM£ e THE FIRST OWRD OF EVERY SECTOR IS WRITTEN 
f*TO BE A PSUEDO^HEADER CONTAINING THE DRIVE f f CYLINDER 
|*f» SURFACE AND SECTOR # 8 .THE FOLLOWING IS CHECKED 
1*1, 'SIN* IF *SIN* OCCURS, A DRIVE RESET IS DONE 
j®AND THE SAME SECTOR IS FORMATTED AGAIN e THREE 
?#RETRIES ARE DONE BEFORE AN ERROR MESSAGE IS PRINTED e 
}#2 8 *ERR ff ON FINDING THAT THE *ERR* BIT SET, RKER 
?#SCANNED TO FIND OUT WHAT CAUSED IT AND THE 
I TERROR IS REPORTED , 

TST2 5 SCOPE 

jSAVE DRIVE NUMBER 

jSEE IF EVEN RK«°OSF DRIVE 

j YES 

jODD RK-*Q5F? 

?D0 NOT FORMAT IF ODD RK^OSF 



litl 



MOV 


DRIVAD,DRHOLD 


TST 


FDRIVE 


BNE 


11$ 


TST 


FDRVE1 


BNE 


TST3 


MOV 


g»626,R2 


MOV 


#»|4,R3 


MOV 


#-5fRl 


MOV 


#«>5»R5 


MOV 


DRIVAD,R4 


CON s 


RESET 


DRV S 


RESET 


CLR 


RO 


TST 


9 RKCS 


BPL 


3$ 


CON a 


RESET 



|203 CYLINDERS, C406 TRAKS) 
; 12 SECTORS 

lALLOW ONLY 5 *SIN* ERRORS 
fALLOW ONLY 5 ff ERP*S 
fSTORE ADRES OF DRIVE e 

?G0 TQ *DR*bR8T* £ DO DRIVE RESET 
jKEEP COUNT OF "SIN* ERORS 
j ALLOW 3 RETRIES ON SIN 
? ERR? 
f MO 

?G0 TO *CN«RST* f, DO CONTROL RESET 
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n format the disk 



1967 
1968 

1969 
1970 
197! 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 

2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 



004714 
004720 
004722 
004726 
004734 
004740 
004746 



004762 
004764 
004772 
004774 
005000 



005002 
005004 
005008 
OOSOlO 
00S014 



005020 
005022 
005026 
005030 

005034 



005036 
005040 
00SO42 
005044 
005046 

005050 
005054 

005060 
005064 

005066 
005070 
005074 
0050^6 
005104 
005106 
005114 



012746 
000002 
010437 
012777 
010477 
012777 
012737 



004722 

028446 
026446 
174524 
177777 

004674 



104421 
032777 
001413 
004737 
104007 



104415 
104416 
005200 
022700 
001332 



005016 005201 



001436 
00S777 
100005 
004737 
104010 



005205 
001426 
005204 
005203 
001314 



012703 177764 
042704 000017 



062704 000020 
005202 



001304 
005237 
001004 
062737 
000661 
013737 
000402 



174512 
001110 



004754 012777 0Q20O3 174474 



MOV 

RTI 

13*1 MOV 

MOV 
MOV 
MOV 
MOV 



MOV 



OOiOOO 174460 

016136 



020000 001230 
002120 001230 |0$! 



«12t»"CSP) 

R4,0UTBUF 
#QUTBUF,|RKBA 
R4,fRKDA 
#-l,»RKWC 

#4g,ILPERR 



#20O3,@RKCS 



CON 8 RDY 

BIT #10O0,§RKDS 

BEG 6$ 

JSR PC,GTSRG 

ERROR 7 



005116 004737 016772 



C0N 9 


RESET 


DRV 9 


RESET 


INC 


RO 


CMP 


#3,R0 


BNE 


11*2 


INC 


Rl 


BEG 


9$ , 


TST 


§RKCS 


BPL 


7$ 


JSR 


PCGT5RG 


ERROR 10 


INC 


R5 


BEQ 


SS 


INC 


R4 


INC 


R3 


BNE 


1$ 


MOV 


#^14#R3 


BIC 


#17,R4 


ADD 


#20,R4 


INC 


R2 


BNE 


1$ 


INC 


FDR'IVE 


BNE 


10$ 


ADD 


#20000, DRIVAD 


BR 


11$ 


MOV 


DRHOLD,DRIVAD 


BR 


TST3 


JSR 


PC, ABRT 



fSET PRIORITY TO ZERO 

jWRITE THIS WORD 

fFROM THIS ADRES 

jON THIS DISK SECTOR 

jWRITE 1 WORD 

?SET RETURN ADDRESS FOR 

jLUPING ON ERROR 

j GO WRT FMT 

;WAIT FOR CONTROL READY 

I WAS THERE A SIN? 

|NQ, SKIP DOING DRV RESET 

fGG, GET RKCS, ER, DS, DA, CYLINDER 

fSIN ERROP ON TRYING TO 

? WRT FMT ON CYLINDER AS 

1 1NDICATED IN RKDA 8 3 RETRIES 

pARE DONE 

fNOTE THAT BEFORE 

^RETRYING A DRIVE RESET WAS DONE 

?G0 TO *DR<»RST' & DO DRV RESET 

jlNCRMNT SIN COUNT 

jALLOW 3 RETRIES WERE THERE 3? 

j IF NOT, GO & RETRY 

?ALLQW ONLY 12 SIN ERRORS 

;IF MORE THAN 5 EXIT THIS TEST 

I IF MORE THAN 5 EXIT THIS TEST 

}DID *ERR» BIT SET IN RKCS? 

jNO, BRANCH 

fGO f GET RKCS, ER, DS,DA,CYL 

j*ERR* OCCURED WHILE DOING 

fWRT FMT ON SECTOR, CYLINDER 

jAS INDICATED IN RKDA„ 

fALLOW ONLY 5 *ERR*S 8 IF 

fMQRE THAN 5 EXIT THIS TEST 

jINCRMNT DISK ADRES TO NXT SCTR 

?ALL 12 SECTORS DONE? 

j IF NOT, GO BAK & FMT NXT SCTR 

I IF YES 

?RESET COUNT FOR 12 SECTORS 

fCLR OUT SEC BITS 

jADRES THE NXT TRAK TO B FMTED 
?ALL TRAKS FMTED? 

J IF NOT GO BAK B FMT NXT CYL, SUR 

jEVEN RK05F? 

?N0 

jFQRMAT ODD DRIVE OF F 

jRESTORE DRIVE ADDR 
MEXIT 
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2023 
2024 
?023 
2026 
2027 
2028 
2029 
2030 
2031 
20 3 2 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
204S 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
3060 
2061 
2062 
2063 
206 4 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 



005|22 000004 

005124 012737 177773 001504 
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T3 READ FORMAT OF THE DISK 

I f #*#^#*#«*#####^####^###*#####*#######«.#**#^*#*##«*### 

j#TEST 3 READ FORMAT OF THE DISK 

F* IN THIS TEST, THE HEADERS FROM ALL THE SECTORS ARE READ 

1* & CHECKED IF THEY ARE CORRECT^ THE FOLLOWING IS THE 

1* TEST SEQUENCE e 

j# 1, READ 12 SECTORS CHDRS ONLY) AT A TIME 

1* 2* IF THERE IS A ff SIN* ERROR RETRY ONCE MORE, IF SAW AGAIN 

|# REPORT ERROR S READ HEADER FROM NEXT CYLINDER 

|* 3 8 IF THERE IS 'ERR" IN RKCS, DO A CONTROL RESET, REPORT 

?# ERROR & READ HEADER FROM NEXT CYLINDER, IF THERE ARE 

I* MORE THAN 5 ERRORS OF THIS KIND, THIS TEST WILL BE EXITED 

f* 4 S THE 12 HEADERS ARE CHECKED e IF THEY ARE CORRECT THE 

j# NEXT CYLINDER IS READ 9 

t* IF THEY ARE NOT CORRECT, A RETRY IS DONEp IF AGAIN CORRECT 

j# HEADERS ARE NOT RECIEVED, AN ERROR IS REP0RTED 8 THE 

|* SECTOR #*S GIVING THE BAD HEADERS, & THE BAD HEADERS ARE 

I* STORED , 

I* 5» IF INHIBIT TYPEOUT* SWITCH IS NOT SET, THE FIRST WORDS OF 

j# THE 12 SECTORS (PSUEDO-HEADERS) ARE READ 9 IN A PREVIOUS 

I* TEST THE FIRST WORD OF EVERY SECTOR WAS WRITTEN 

j* AS A SOFTWARE HEADER (CONSISTING OF DRIVE *, CYL#, SUR,SEC«) 

p* THEN THE SECTOR * GIVING BAD HEADER, EXPECTED PSUEDO-HEADER, 

»* & THE PS*HEADER RECIEVED ARE TYPED OUT a THIS WOULD 

t* WRONG, HEADER WAS READ WRONG, ETC g 

f« 6 9 THE NEXT CYLINDER IU LINE IS READ g ORDER OF READING IS 

f#.CYL0,SUR0 CYLOfSUFl - CYL312,SUR1 

TST3I "SCOPE 



005132 
005140 
005146 
005152 
005160 
005162 

005164 

005170 

005174 
005202 
005206 
005214 

005222 

005230 

005232 
005240 

005242 



012737 
012737 
013705 

012737 
104415 
104416 

005037 
005037 

012777 
010577 
012777 
012737 

012777 

104421 

032777 

001420 
004737 



177766 
177773 
001230 
177152 



0O12S4 

001252 

026446 
174256 
177764 
005160 



001506 
001510 



2*1 



174260 3$8 



174244 

ooiiio 



002005 174226 



001000 
016214 



174212 511 



MOV 

MOV 
MOV 
MOV 
MOV 



COH s RESET 

DRV e R£SET 



#-§,ERCNTl 

#«12,ERCNT2 

#-5,ERCNT3 

DRIVAD,R5 

#-626,INDX2 



CLR 

CLR 

MOV 
MOV 
MOV 

MOV 



RETRY2 

RETRY1 

#OUTBUF,@RKBA 
R5,@RKDA 
#-i4,9RKWC 
#48,§LPERR 

#200§,|RKCS 



MOV 

CON s RDY 

BIT #l0Q0,gRKDS 

BEQ 6S 

JSR PCGETINF 



005246 104011 



| ALLOW ONLY 5 ERRORS (OF BAD HEADER 

?KIND FROM 5 CYLINDERS) 

?ALLOW ONLY 12 *ERR*S 

jALLOW ONLY 5 ERRORS 

?SET DRIVE ®,C¥L ADRESsO 

;313 CYLS (626 TRAKS) TO B READ 

jGO DO CONTROL RESET 

fQO DO DRIVE RESET 

lALLOW 2 RETRIES IF HDRS READ WRONG 
jALLOW 2 RETRIES FOR 'SINS* 

jRD HDRS INTO LOC STARTING AT THIS 

fFROM THIS DSK ADRES 

J 12 HDRS TO BE READ 

?SET RETURN ADRES FOR LUPING ON ERROR 

?G0, RD FMT OF THIS CYLINDER 

fWAIT FOR CNTRL RDY TO SET 

I "SIN* ERROR? 
|N0, BRANCH 



f*SIN* OCCURED WHEN DOING RD FMT 
jFROM CYL SHOWN IN RKDA S IT 
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2079 


00S250 


104415 




2080 


003252 


104416 




2081 


005254 


005237 


001252 


2032 


005260 


022737 


000002 001252 


2083 


0052^6 


001342 




2084 








2085 


005270 


005237 


001510 


2086 


005274 


001002 




2087 


005276 


000137 


005606 


2088 








2089 


005302 


005777 


174150 


2090 


005306 


100010 




2091 


005310 


004737 


016136 


2092 


O05314 


104012 




2093 








2094 


005316 


104415 




2095 








2096 


005320 


005237 


001506 


2097 








2098 


005324 


001532 




2099 


005326 


000520 




2100 








210 1 








2102 








2103 








2104 








2105 


005330 


004737 


007260 


2106 








2107 


005334 


005737 


001500 


2108 


005340 


001513 




2109 








2110 


005342 


012737 


005170 001U0 


2111 


005350 


104013 




2112 








2113 








2114 


005352 


005237 


001254 


21 15 


005356 


022737 


000002 001254 


21 lb 


005364 


001301 




2117 








2118 


005366 


005237 


001504 > 


21J9 








2120 








2121 


005372 


001505 




2122 








2123 


005374 






212 4 








2125 








2126 








2127 








2128 








2129 








2130 


005374 


032777 


020000 173536 


2131 


005402 


001072 




2132 








2133 








2134 


005404 


012701 


177764 



C0N 8 R£SET 

DRV e RESET 

INC ' RETR¥1 

CMP #2, RETRY! 

BNE 38 



INC 

BNE 
JMP 

TST 
BPL 
JSR 
ERROR 



ERCNT3 

68 

16g 

IRKCS 
7§ 

PCGT5RG 
12 



CON ffl RESET 

INC ERCNT2 



BEQ 

BR 



BIT 

BNE 



TST4 
14| 



JSR 


PCCHKHDR5 


TST 


INDX3 


BEQ 


14$ 


MOV 


#2S,$LPEPR 


ERROR 


13 


INC 


RETRY2 


CMP 


#2,RETRY2 


BNE 


2S 



820000, @SWR 
14$ 



jDO CNTRL RESET 

?G0, DO DRIVE RESET 

jALLOW ONLY 2 RETRIES FOR THIS E 

j IF TRIED 2 TIMES REPORT 

j ERROR, OTHERWISE GO BAK 6 RETRY 

;WAS TRIED TWICE, BUT *SIN% 

jALLOW 5 ERRORS AT MOST 



I'EPR' IN RKCS? 

jNO, BRANCH 

jGO, GET RKCS, ER,DS,DA,CYLNDR' 

;*ERR* SET WHILE DOING RD FMT 

fFROM CYL SHOWN IN RKDA 

I GO DO CNTRL RESET 

?ALLOW ONLY 12 ERRORS OF THIS 

|KIND# IF MORE THAN FIVE ERRORS 

,'SSUP THIS TEST 

If EXIT 

; GO SET UP TO RD FMT FROM NXT 

jCYL IN LINE 

fCHECK THAT CORRECT HEADERS WERE RECVD 9 

iSECTR I HAVING BAD HDR IS STORED ALONG 

JWITH BAD HDR 

;G0 CHECK IF CORRECT HEADERS WERE READ 

fWAS THERE A MI5C0MPARIS0N? 
; IF NOT, GO SET UP TO RD FMT 
;NXT CYL IN LINE 

jCQRRECT HOPS WERE WOT RECVD 

?FRQM SECTRS AS TYPED OUT, 

?THE SAME CYLINDER WAS READ TWICE 

jRETRY RD FMT ON SAME CYL AGAIN 

jTRIED RDING SAME C*L TWICE 

fIF NOT, GO RD AGAIN 

j YES, REPORT ERROR 

j ALLOW ONLY 5 ERRORS OF THE 

jABOVE TYPE 8 IF MORE THAN 12 

jEXIT THIS TEST 



?THE PSUEDO-HEADERS CFIRST WORD OF EVERY 
jSECTOR) FROM THIS CYLINDER (ABOVE, 

fTHE CYLINDER THAT GAVE WRONG HEADERS) 

?WILL BE READ, NOW 8 FOLLOWING WILL B'TYPD OUT! 

jSECD, EXPCTD PSUEDO«»HDR, RECVD PHDR 8 

;IF "INHIBIT TYPEOUT* SW IS SET THIS ENTIRE 

jREADING & TYPING WILL BE SKIPPED 

;INHIBIT TYPEOUT? 

;YE5, SKIP THE FOLLOWING & GO 

?SET UP TO RD FMT NXT CYL IN LINE 



?READ FROM 12 SECTRS 



MD-11-DZRKL-E, 


RK11»RK05 DYNAM 


DZRKLE, 


Pll 26«-APR»77 


12127 


21 35 


005410 


010577 


174050 


2136 


005414 


012777 


026446 


2137 


005422 


012777 


177777 


2139 








2139 


005430 


012777 


000005 


2140 


005436 


104421 




2141 


005440 


005777 


174012 


2142 


005444 


100002 




2143 


005446 


104415 




2144 


005450 


000447 




2145 








2146 


005452 


00520! 




2147 


005454 


001362 




2148 








2149 








2150 








2151 








2152 








2153 


005456 


104401 




2154 


005460 


001771 




2155 


005462 


012701 


001266 


2156 








2157 


005466 


104401 




2158 


005470 


001213 




2159 








2160 


005472 


011102 




2161 


005474 


012703 


026446 


21b2 








2163 








2164 


O05500 


005702 




2165 


005502 


001403 




2166 


005504 


005302 




2167 


005506 


005723 




2168 


005510 


000773 




2169 








2170 


005512 


011146 




2171 


005514 


104403 




2172 


005516 


002 




2173 


005517 


000 




2174 








2175 


005520 


104401 




2176 


005522 


002105 




2177 








2178 


005524 


010546 




2179 


005526 


051116 




2180 


Q05530 


104402 




2181 








2182 


005532 


104401 




2183 


005534 


002103 




2184 








2185 


005536 


011346 




2186 


005540 


104402 




2187 








2188 


005542 


005721 




2189 


005544 


021127 


177777 


2190 


005550 


001346 
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174040 
174030 



174020 



15S| 



MOV 




R5,@RKDA 


MOV 




#OUTBUF,§RKBA 


MOV 




•-1»§FKWC 


MOV 




85,9RKCS 


CON g 


RDY 




TST 




PRKCS 


BPL 




158 


CON s 


RESET 


BR 




14$ 


INC 




Rl 


BNE 




10$ 



MSG11 
MOV 


#BUFR,R1 


TYPE 
SCRLF 




MOV 
MOV 


(F1)#R2 

80UT8UF*R3 


TST 
BEQ 
DEC 
TST 
BR 


R2 

US 

R2 

CR3)* 

12$ 


MOV 
TYPQS 
9 BYTE 
9 BYTE 


CR1),-£SP3 

2 



TYPE 
BLNKS5 




MOV 
BIS 
TYPOC 


R5,-CSP) 
(R1S,CSP3 


TYPE 
BLNKS7 




MOV 
TYPOC 


(R3)#-(SP) 


TST 
CMP 
BNE 


CRD* 

CR13*#177777 

11$ 



|FROM THIS DSK-ADRES 
yINTO THIS BUS^ADRES 
?RD 1 WRD 

jGO, RD 

jWAIT FOR CNTRL RDY 

jANY EROR? 

I NO, PROCEED 

yCLEAR THE EROR 

jEROR, SO COULDN'T READ PSUEDO^HDRS 

fREAD FROM ALL 12 SECS 

j IF NOT GO RD THE NXT ONE 

I TYPE OUT PSUEDO«»HDRS CORRESPONDING TO 
jTHE SECTORS WHICH GAVE BAD HEADERS 
jTYPEt SEC *, EXPC P»HDR, RECVD P-HDR 



jSEC #*S ARE STORED HERE 
I TYPE CRt LF 



?PSUEDQ<*HEADERS WHICH WERE 
?READ ARE STORED HERE 

IIS THIS SEC 9 CORRESPONDING TO THE 

fONE IN ERROR 

|R2 CONTAINS THE SEC * 



I GO TYPEOUT SEC ft GIVING 
jMISCOMPARISON OF HEADERS 

;SUPRES LDG O ff S 

fTYPE 2 BLANKS 

| GO TYPE EXPCTD PSUEDO HEADER 

| TYPE 2 BLNKS 

jGQ TYPE PSUEDO^HEADER RECVD 

fTYPED OUT ALL SEC #*S IN ERR0R 8 
I IF NOT GO BAK & TYPE NXT 
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2191 

2192- 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2201 
2204 
2205 
2206 
2207 
2208 
2209 
2210 



005552 104401 001733 

005556 012746 005374 

005S62 104402 

005564 104401 001213 



TYPE 

MOV 

TYPOC 

TYPE ? ICRLF 



f20t* »<SP) 



005570 
005574 
005600 
00S602 



062705 
O0S237 
001404 
000137 



000020 
001476 



ADD #20, R5 

INC INDX2 

BEQ TST4 

JMP 1$ 



jTYPE OUT PC 



?TYPE ROUTINE ENDS HERE 

»FIND OUT NXT TRAK TO B READ 
I FORMATTED 

iSET ADRES FOR SUR 0, NXT CYL IN LINE 
IREAD ALL 313 CYLINDERS (626 TRAKS)? 
IfEXIT 

jIF NOT, GO BAK & READ, NXT 



005606 004737 016772 



JSR 



PCABRT 



221 

221 

221 

221 

221 

221 

221 

221 

221 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2212 

2233 

2234 

2235 

2236 

2237 
223R 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 



005612 000004 
005614 104415 



I&TEST 4 SEEK PATTERNS! 0-312-0-311-, ,,, USING IMPLIED SEEK 

j#«#TEST 2 (WRITING PSUED.OHEADERS) SHOULD HAVE BEEN DONE BEFORE**** 

$#*#* DOING THIS TEST#«# 

}#THIS TEST PERFORMS SEEKS (IMPLIED SEEKS USING BREADS*} IN THE 

l#FOLLOWING PATTERN, 

l*O-312»O»311«O-3iO-,, t ,,O-l«O-0 

}*THE FIRST WORD OF EVERY SECTOR IS A PSEUDQ^HEADER (WRITTEN IN 
j*A PREVIOUS TEST) CONSISTING OF DRIVE NO, CYLINDER N0 9 , SURFACE 
j#AND SECTOR N0 9 AN IMPLIED SEEK IS DONE BY ISSUING A 'READ* "FOR 
j&THE PSEUDO^HEADER OF SECTOR 0, SURFACE O a 

|*IF A *SIN* OCCURS TWO TRIES ARE DONE BEFORE ABORTING,, IF A 'SKE* 

}#OCCURS IT COULD MEAN THAT 13 EITHER THE HEADERS WAS READ WRONG 

j#OR 2) THE HEADS GOT POSITIONED ON THE WRONG CYLINDER 8 IN 

f#ORDER TO PROVIDE A FURTHER INSIGHT INTO THE PROBLEM, THE FOLLOWING 

J*IS DONE? 

j#THE HEADERS ARE READ FROM THE CYLINDER THAT GAVE *SKE% IF THE HEADERS 

jfcARE CORRECT IT IS SO REPORTED^ IF THE HEADERS ARE INCORECT, THEN THE 

j«EXPECTED HEADERS AND THE RECEIVED ONES ARE REPORTED* ONE MORE TRY IS 

j&DONE (THE IMPLIED SEEK IS TRIED AGAIN BETWEEN THE CYLINDERS THAT GAVE RISE 

?#T0 *SKE*) 

f&THE FOLLOWING ACTION IS TAKEN WHEN THERE IS NO 'SKE* OR 'SIN* BUT STILL THE 
j#PSEUDO»HEADER IS READ WRONGi 

j#FIRST THE HEADERS ARE READ FROM THAT CYLINDER AND CH£CKED 9 IF THEY ARE 
INCORRECT, IT IS SO REPORTED^ IF THEY ARE WRONG THEN THE EXPECTED AND RECEIVED 

f#HEADERS ARE REPORTED a THEN THE PSEUDO^HEADER FROM SECTbR 1 IS READ AND REPORT 

j&ONE MORE TRY IS DONE BY REPEATING THE WHOLE PR0CESS 9 (IMPLIED SEEK 

{^BETWEEN THE TWO CYLINDERS AND READING PSEUDO-HEADER FROM SECTOR OF THE DESTI 

l#CYLINDER) 9 

j®UP TO 12 ERRORS OF EACH KIND (SIN, SKE, BAD PSEUDO«»HEADER) ARE ALLOWED* 
|#IF ANY ERROR OCCURS MORE THAN 12 TIMES THE TEST IS ABORTED 9 

TST48 SCOPE 

C0N 9 RESET |G0 DO CONTROL RESET 
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2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
22S9 
2260 
2261 
2262 
2263 
2264 
2265 
2256 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
227B 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
1301 
2302 



005616 
005620 



O05622 
005630 
005634 
005640 

005644 



104416 
005004 



012737 
012700 
010037 
010037 
010037 



177465 
177764 
001504 
001506 
001510 



005650 012737 014500 001260 



005656 
005660 
005662 
005666 
005672 
005674 



005700 
005706 
005714 
003722 
005724 
003726 
005730 

005734 
005742 
005746 
005754 



005762 

005770 

005772 
006000 

006002 
006006 
006014 
006022 
006026 
006034 
006042 



005704 
001005 
013705 
053705 
000402 
013705 



012737 
012737 
012737 
000404 
104415 
104416 
004737 

012777 
010577 
012777 
012737 



001260 
001230 



177776 
177776 
177777 



006526 

177777 
173316 
026446 
005724 



032777 

001434 

004737 
017737 
017737 
104420 
013737 
062737 
104014 



0012S4 
001252 
00I2S6 



3$S 

13$! 
4$S 



173516 §SS 



173506 

001110 



012777 000005 173466 



001000 173452 



016376 
173440 
173434 
001602 
001256 
000002 



001170 
001166 



001172 
001172 



DRV a RESET 
CLR R4 



MOV 
MOV 
MOV 
MOV 
MOV 

MOV 



TST 

BNE 

MOV 

BIS 

BR 

MOV 



MOV 
MOV 
MOV 
• BR 



#«313,INDX2 

#«»14,R0 

R0,ERCNT1 

R0,ERCNT2 

R0,ERCNT3 

#14500, INADR 



R4 

2S 

INADR,P§ 

DRIVAD,R§ 

3$ 

DRIVAD,R5 



#-2,RETRY2 
#«2, RETRY! 
#«1#RETRY3 

56 



CON B RESET 
DRV e RESET 
JSR PC f SBRl 



MOV 
MOV 
MOV 
MOV 



BIT 
BEQ 

JSR 

MOV 

MOV 

TYPMSG 

MOV 

ADD 

ERROR 



#-l,»RKWC 
R5,§RKDA 
#OUTBUF,@RKBA 
#6S,§LPERR 



#5,SRKCS 



8iQ00,§RKDS 
S@ 

PC,ERR1 

#RKDS,$REG3 

@RKER,SREG3 

,MSG1 

RETRY3,SREG4 

#2,HREG4 

14 



jGQ DO DRIVE RESET 

fFLAG, CLR IF DOING IMPLIED 
fSEEK IN FROM TO 'INADR* 
?si* IF GOING FROM 'INADR* 
? QUT TO CYL 
$313 SEEK PATTERNS 

FALLOW ONLY 12 ERRORS 
;0F THESE KINDS 



y^INADR* CONTAINS THE INER 
?CYL TO WHICH IMPLIED SEEK WILL 
jBE DONE 

jGOING IN OR OUT? 

jGOING OUT, BRANCH 

j SET CYL ADRES BITS FOR GOING IN 

jFORM DISK ADRES FOR INNER 

fCYLINDER 

fFOPM DISK ADRES FOR OUTER 

fCYLINDER • 

jALLOW 2 TRIES wlHEN 

^ERRORS OCCUR 



yREPtJSITION HEADS TO PRE«ERROR CYL 

I READ 1 WORD 

jFROM THIS CYLINDER, SEC 
I INTO THIS BUS ADRES 
•|SET RETURN ADRES FOR LUPING 
;0N 'ERROR* 

fGO, READ 

?WAIT FOR CNTRL RDY 

|SIN? 

f"NO, BRANCH 

fYES, THERE WAS A SIN 

}G0 GET, CYLS BETW'N WHICH SK WAS TRIED 



?SAVE TRY # ON 'SIN* 

I AN IMPLIED SEEK WAS TRIED 
|FROM *CYLA* TO *CYLB» (INDICATED 
|IN EROR MESAGE3, 'SIN* 'OCCURRED, 
;2 TRIES ARE DONE BEFORE 
jABORTING 



MD-11-DZRKIi.E, RK11«RK0S DYNAMIC TEgT 
DZRKLE 8 P11 26-APR»77 12827 



2303 


006Q44 


00S737 


0012S6 






TST 


RETRY3 


2304 


006050 


001403 








BEQ 


7$' 


2305 


006052 


005237 


001256 






INC . 


RETRY3 


2306 


006q56 


000722 








BR 


6$ 


2307 
















2308 


006060 


005237 


001504 




718 


INC 


ERCNTI 


2309 


006064 


001103 








.BN-E 


19$ 


2310 


006066 


000137 


006614 






JMP 


EXT4 


23tl 
















2312 


006072 


032777 


010000 


173354 


8§; 


BIT 


#10000, 9RKER 


2313 


006100 


001S06 








BEQ 


20g 


2314 


006102 


004737 


016376 




15SJ 


JSR 


PC, ERRS , 


2315 


006106 


017737 


173342 


001166 




MOV 


#RKER,gREG2 


2316 


006|14 


017737 


173332 


001170 




MOV 


|RKDS,SREG3 


2317 


006122 


013737 


001252 


001172 




MOV 


RETRY1#$FEG4 


23ia 


006130 


062737 


000003 


001172 




ADD 


#3,8REG4 


2319 


006136 


104420 


001610 






TYPMSG 


*MSG2 


2320 


006142 


104014 








ERROR 


14 


2321 
















2 3 2 2 
















2323 
















2324 


006144 


104415 








CON e RESET 


2325 
















2326 


006146 


004737 


0065S2 




9«l 


JSR 


PC,SBR2 


2327 
















2328 
















2329 
















2330 
















2331 


006152 


012777 


000015 


173276 




MOV 


#1§*§RKCS 


2332 
















2333 
















2314 
















2335 
















2336 


006160 


0057 37 


001500 






TST 


INDX3 


2337 
















2338 


006164 


001006 








BNE 


10$ 


2339 
















2340 


006166 


005237 


001252 






INC 


RETRY1 


2341 


006172 


001414 




>■ 




BEQ 


128 


2342 


006174 


104420 


Q01657 






TYPMSG 


,MSG5 


2343 
















2344 
















2 345 


006200 


000405 








BR 


11$ 


2346 
















2347 
















2348 


006 2 02 


005237 


001252 




10SI 


INC 


RETRY1 


2349 


006206 


001411 








BEQ 


14$ 


2350 
















2351 
















2352 


006210 


104417 


000015 






MESAGE 


#15 


2353 
















2354 
















2355 
















2356 


006214 


104423 






1181 


RESDON 




2357 
















2358 


006216 


004737 


006526 






JSR 


PC f SBRl 
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?DONE RETRIES 
?YES, BRANCH 
jGO DO 2ND TRY 



j ALLOW LESS THAN 12 ERORS OF THIS TYPE 
fIF MORE SKIP THIS TEST 
jEXIT THIS TEST 

jSKE? 

jGO GET 2 CYL NOS s BETWEEN WHICH 
I IMPLIED SEEK WAS DONE 

jGET TRY « ON *SKE* 

fGO PRINT *SKE* 

j IMPLIED SEEK WAS TRIED FROM 

?*C¥LA* TO "CYLB* (INDICATED 

)1H EROR MESAGE}} *SKE 9 0CCURRED 8 

?2 TRIES ARE DONE, 

?D0 CONTROL RESET 

?G0 READ 12 HEADERS FROM 
?THIS CYLINDER & COMPARE 
?THEM 8 NOTE RS CONTAINS THE 
jDXSK ADRES THAT WILL BE USED S 

jGO DO DRIVE RESET 
fWHILE THE DRIVE IS DOING RESET 
j THE HDRS THAT WERE READ 
fABOVE ARE CHECKED, PRINTED 

fWAS THERE A MISCQMPARISON 
?IN ANY HEADER? 
| IF INDX3»0* THERE WAS a 
jNQ, THERE WASN"T e HDRS OK 
fONLY 2 TRIES FOR SKE 
jBRANCH IF THIS WAS A 2ND TRY 
I TYPE OUT THAT HDRS WERE READ 
?C0RRECTLY 8 THIS WAS TRY 9 1 



;HDRS WERE READ INCORRECT, 
?ALLOW 2 TRIES FOR SKE 

?BRANCH, IF THIS WAS 2ND TRY 

fTHERE WAS SKE ON DOING IMPLIED 

j SEEK TO *CYL B* s THEN HDRS WERE 

fREAD FROM CYL Br WRONG HDRS 
fPECVD 

jWAIT FOR PREVIOUS DRIVE RESET 

}T0 BE DONE 

;G0, REPOSITION HEADS 
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2359 


006222 


000634 






BR 


4S 


2360 














2 361 














2362 














236 3 














2364 














2365 


006224 


104420 


001657 


12SS 


TYPMSG 


*MSG5 


2366 














2367 














2368 


006230 


000402 






BR 


16$ 


2369 














2370 














2371 


006232 


104417 


000015 


14SS 


MESAGE 


as 


2372 














2373 














2374 


006236 


104423 




I6S8 


RESDON 




2375 














2376 














2377 


006240 


005237 


001506 




INC 


ERCNT2 


2378 














2379 


006244 


001002 






BNE 


17$ 


2380 


006246 


000137 


006654 




JMP 


EXT4 


2381 














2382 


006252 


005704 




1701 


TST 


R4 


23 8 3 


006254 


001007 




i 


BNE 


19$ 


2384 














2385 


006256 


005703 






TST 


R3 


2386 


006260 


001005 






BNE 


19$ 


2387 














2388 














2389 


006262 


005204 




18$ i 


INC 


R4 


2390 


006264 


004737 


006326 




JSR 


PC,SBR1 


2391 














2392 


006270 


000137 


005656 




JMP 


i* 


2393 














2394 


006274 


005237 


001476 


19$I 


INC 


INDX2 


2 395 


006300 


001547 






BEQ 


TST5 


2396 














2397 


006302 


162737 


000040 


001260 


SUB 


#4Q?XNADR 


2398 














2399 


006310 


005004 






CLR 


R4 


2400 














2401 


006312 


000137 


00S656 




JMP 


1$ 


2402 














2403 


006316 






20SI 






2404 














2405 














2406 


006316 


012737 


00S700 


OOliiO 


MOV 


*3*/*LPERR 


2407 














2408 


006324 


020S37 


026446 




CMP 


R§*OUTBUF 


2409 


O0&330 


00147! 






BEQ 


24$ 


2410 


006332 


013737 


0012S4 


001172 


MOV 


RETRY2*$REG4 


2411 


006340 


062737 


000003 


001172 


ADD 


#3,$REG4 


2412 


006346 


004737 


016376 




JSR 


PC,ERBt 


2413 














24J4 















;2ND TRY, SKE THIS TIME ALSO* BUT 
|READ HDRS CORRECTLY FROM 
|C2LINDER THAT GAVE SKE 
jNOTE THIS WAS THE 2ND TRY 
fTYPE OUT THAT HDRS WERE 
I READ CORRECTLY a 



?2ND TRY* SKE THIS TIME ALS0 9 

j READ HDRS FROM CYL THAT 

jGAVE SKE* THEY WERE INCORRECT* 

jWAXT FOR PREVIOUS DRIVE RESET 
?T0 BE DONE 

?ALLQW ONLY LESS THAN 10 ERRORS OF 
jTHIS TYPE (SKE) 

?EXIT THIS TEST IF MORE 

?WENT LAST TIME IN OR OUT? 

fOUT 

|XN 

fWERE HDRS CORRECT? 

J NO 

?YES 



?G0 POSITION HEADS BAK ON INNER 

|C¥L 

fGO BAK 6 SEEK OUT NOW 

? all seek patterns done? 
mexit 

i set address for the nxt 

fINNER CYLINDER 

I INDICATE THAT NOW SEEK IS GOING 

I TO BE IN 

I GO BAK & SEEK IN TO "SNADR* 

} IF -THERE WAS NO SIN OR SKE 
?ENTER HERE 

rSET RETURN ADRES FOR LUPING 

I ON ERROR 

jCORRECT PSUEDO^HEADER READ? 

fYESff BRANCH 

?GET TRY « 

jGQ GET CYL #*S 8ETW*N 

I WHICH IMPLIED SEEK (RE-AD) 

?WAS DONE 
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2415 


006352 


010537 


001166 


2416 


006356 


013737 


026446 001170 


2417 


006364 


104016 




2418 








2419 








2420 








2421 








2422 


006366 


00S237 


001254 


2423 


006372 


001402 




2424 


006374 


000137 


005706 


242S 








2426 








2427 


006400 


004737 


006S52 


2428 








2429 








2430 








2431 


006404 


005737 


001500 


2432 


006410 


001003 




2433 


006412 


104420 


001657 


2434 








2435 








2436 


006416 


000402 




2437 








2438 


006420 


104417 


000015 


2439 








2440 








2441 








2442 








2443 


006424 


010300 




2444 


006426 


005200 




2445 


006430 


010077 


173030 


2446 


006434 


012777 


026446 173020 


2447 


006442 


012777 


177777 173010 


2448 


006450 


012777 


000005 173000 


2449 


006456 


104421 




24S0 


006460 


010537 


001162 


2451 


006464 


004737 


016434 


2452 


006470 


010037 


001164 


2453 


006474 


013737 


026446 001166 


2454 


006502 


104417 


000017 


2455 








2456 








2457 


006506 


005237 


001510 


2458 








2459 


006512 


001440 




2460 








2461 


006514 


005704 




2462 


006516 


001266 




2463 








2464 


006520 


005204 




2465 


006522 


000137 


005656 


2466 








2467 








2468 








2469 








2470 









MOV 
MOV 
ERROR 



R5,$REG2 

0UTBUF#*REG3 

16 



INC 


RETRY2 


BEQ 


21S 


JMP 


13S 



PC,SBR2 



TST INDX3 
BNE 228 
TYPMSG ,MSGS 



BR 23$ 
MESAGE #15 



MOV 


R5,R0 


INC 


RO 


MOV 


RO,@RKDA 


MOV 


#OUTBUF,#RKBA 


MOV 


#-i»MKWC 


MOV 


#§,§RKCS 


C0N 9 RDY 




MOV 


R5,8R£G0 


JSP 


PCGCYL 


MOV 


R0,$REG1 


MOV 


0UTBUF,gREG2 


MESAGE 


#17 


INC 


ERCNT3 


BEQ 


EXT4 


TST 


R4 


BNE 


19$ 


INC 


R4 


JMP 


IS 



| GET EXPCTD PSUEDO-HDR 

?GET PSUEDO«HDR RECVD 

? IMPLIED SEEK FROM CYLA TO CYLB WAS DONE s 

IREAD PSEUDO«*HEADER OF SEC Of 

jCXLB (IN EROR MESAGE), BUT 

$THE WRONG PSEUDO«*HEADER WAS 

^RECEIVED 



I GO READ HEADERS (12) FROM 
,'THIS CYLINDER* & CHECK THEM, 
I IF MISCOMPARISON INDX3 WILL 
?BE > 9 



? WRONG PSUEDO^HDR WAS READ 
}BUT WHEN HDRS WERE READ 
jFROM THE SAME CYLINDER, THEY 
jWERE CORRECT 

I WRONG PSUEDO«-HDR WAS READ 

j FROM *CYLB* (IN ERROR MESAGE) , 

j THEN HEADERS WERE READ FROM THE 

jSAME CYLINDER,, THEY WERE ALSO 

?WR0NG 9 

?NOW READ THE PSUEDO»»HEADER 

|FROM THE NEXT SECTOR CD 

jSAME CYLINDER 



jGO GET CYL « & STORE IT IN $REG0 
? GET EXPCT PSUEDO-HDR FROM SEC 1 

jPSUEDO-HEADER FROM SEC I* CYLB 
;{IN MESAGE) WAS READ, THE EXPCTD 
?& RECVD DATA WORDS ARE REPORTED/ 
jALLOW ONLY LESS THAN 10 ERRORS 
jOF THIS TYPE (WRONG PS^HDRS) 



jSEEKED IN OR OUT LAST TIME? 
jIF OUT, GO SEEK NXT INNER CYL 
f IF IN, GO SEEK BAK TO 
?INDICATE THAT SEEK OUT (03 
?WILL BE DONE NOW 



fTHIS ROUTINE IS USED IN THIS TEST ONLY* 
jR4aO INDICATES SEEK BEING DONE FROM 
fCYL TO INNER CYL 9 
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2471 
2472 
2473 
2474 

2475 006526 005704 

2476 006530 001407 

2477 006532 013777 001260 172724 

2478 006S40 012777 000011 172710 

2479 006546 104422 

2480 006550 000207 
2481 

2482 
2483 
2484 
2483 
2486 
2487 
2488 

2489 006552 0127QO 177764 

2490 006556 012701 026446 

2491 006562 010077 172672 

2492 006§66 010177 172670 

2493 006572 010577 172666 

2494 006576 012777 002005 172652 

2495 006604 104421 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2303 
25 04 
2505 
2506 
2507 
2508 
2509 
2510 
2511 

as 12 

2313 
2514 
2515 
2516 
2517 
2518 
231? 
2520 
2521 
3522 
23 2 3 
2524 
2S25 
2S26 
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jR4sl INDICATES SEEK BEING DONE FROM 
jINNER CYL TO 9 THIS ROUTINE POSITIONS 
sTHE HEADS ON *XNADR ff CYL IF R4s| 



006606 004737 007260 

006612 000207 

006614 004737 016772 



I^TEST 



006620 000004 

006622 104415 

006624 104416 

006626 00S004 



II* 

T8TSJ 



TST 




R4 






BEQ 




1$ 






MOV 




INADR 


§RKDA 


MOV 




#11 


fRKCS 


TST S 


RWS 








RTS 




PC 







fTHIS ROUTINE IS USED IN THIS TEST 

?0NLY 9 IT READS 12 HEADERS FROM CYLINDER 

j WHOSE ADRES IS IN R5 , THEN IT CHECKS 

{IF THE EXPECTED HEADER IS RECEIVED 8 

fIF IT IS NOT, INDX3 IS INCREMENTED INDICATING 

j THE ERROR 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



JSR 
RTS 
JSR 



#-14, PO 

#0UTBUF,P1 

R0,IRKWC 

Rl f PRKBA 

R5,@RKDA 

#2005*|RKCS 



PCfCHKHDRS 

PC 

PCABRT 



jREAD 12 HDRS 
jINTO THIS ADRES 
|FROM THIS CYLINDER 
jRD FMT, GO 



j GO CHE"CK IF CORRECT HEADERS WERE READ 
?EXIT 



5 PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 
j^THIS TEST PERFORMS A CONVERGING-DIVERGING SEEK PATTERN 
t*U8ING IMPLIED SEEK (READ FORMAT) , THE SEEK SEQUENCE IS| 
1*0-3 12-1-31 1-2-3 10-3-307 — -- —310-2-311-1-312 
fALL READ FORMATS ARE DONE FROM SURFACE g 

f&THE CYLINDER ADDRESSES, BETWEEN WHICH THE IMPLIED SEEK IS 
jfcPERFRORMED* ARE CONTAINED IN 'OUTADR* & 'INADR', IF ®SIN* OCCURS 
|#AN ERROR IS REPORTED AND A RETRY IS D0NE 8 ON READING INCORRECT 
I&HEADERS AN ERROR IS REPORTED AND A RETRY IS D0NE 8 NOTE THAT IF 
f®hhh THE 12* HEADERS ARE INCORRECT, IT COULD MEAN THAT THE HEADS 
p#CDULD NOT POSITION CORRECTLY 9 THIS WOULD BE CONFIRMED IF IN 
f»PREVX0U8 TESTS BAD HEADERS WERE NOT RECIEVED FROM THE SAME 
f®CYLINDER 8 IF THAT CYLINDER GAVE BAD HEADERS IN ALL THE PREVIOUS 
?#TESTS THE PROBLEM COULD BE DIFFERENT 9 
f#MAXIMUM 12 ERRORS OF ANY KIND ARE ALLOWED, 
f#IF MORE THAN 12 ERRORS OCCUR THE TEST IS ABORTED , 



SCOPE 

C0N 9 RESET 

DRV 9 RES£T 



?GO,DO CONTROL RESET 
jGO,DO DRIVE RESET 

y(R4)aO SEEKING FROM 'OUTADR* TO 'XNADR* 
?(R4)ssl SEEKING FROM *XNADR ff TCOUTAOR* 



MD-li-DZRKL-E, RK11»RK05 DYNAMIC TEST 
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2527 

?52S 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 

2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
25P2 



006630 
006636 
006642 
006646 

006652 
006656 

006664 
006666 
006670 
006674 
006700 

006702 
006706 

006712 
006716 
006724 
006726 

006730 
O06732 

006736 
006744 
006750 
006756 



012737 
012700 
010037 
010037 

005037 
012737 

005704 
001005 
013705 
053705 
000404 

013705 
OS3705 

005037 
012737 
000404 
104415 
104416 
004737 

012777 
010577 
012777 
012737 



006774 
007002 
007Q04 
007012 
007020 
007026 
007034 

007040 
007044 



007046 
O07052 
007054 
007060 
007062 
007064 



177466 001476 
177764 
001504 
001506 

001262 

014500 001260 



001260 
001230 



001262 
001230 



001254 3$l 

177777 001252 4Sl 



007224 

177764 172514 7$3 

172514 

026446 172504 

006726 001110 



006764 012777 002005 172464 



006772 104421 



032777 
001443 
017737 
017737 
013737 
062737 
004737 

104420 
104014 



005737 
001403 
005237 
000722 
104415 
104416 



001000 172450 



172444 
172434 



001166 
001170 



001252 001172 



000002 

016320 



001 17 2 



MOV 
MOV 
MOV 
MOV 

CLR 
MOV 

TST 

BNE 
MOV 
SIS 
BR 

MOV 

BIS 



#.»312,INDX2 
#=*14,R0 
R0,ERCNT1 
R0,ERCNT2 

OUTADR 
#14500, INADR 

R4 

28 

XNADR,R5 

DRIVAD/R5 

3$ 

OUTADR, R5 
DRIVAD,P§ 



CLR RETRY2 

MOV #-i, RETRY! 

8P 7S 

CON 9 RESET 

DRV 8 RESET 

JSR PC,SBR3 



MOV 
MOV 
MOV 
MOV 

MOV 



BIT 

BEQ 
MOV 
MOV 
MOV 
ADD 
JSR 

TYPMSG 
ERROR 



#«14,giRKWC 
R5,@RKDA 

#OUTBUF?§RKBA 

#5$ f ILPERR 

#2005,§RKCS 



#1Q0G,§RKDS 

§RKER,$R£G2 

®RKDS,gREG3 

RETRYl#SREG4 

#2,$REG4 

PC,ERR2 



,MSG| 
14 



TST 


RETRY1 


BEQ 


6S 


INC 


RETRY1 


BR 


5$ 


CON 


RESET 


DRV, 


RESET 



007066 005237 001504 



?SET COUNT FOR DOING 312 TIMES 
jALLOW ONLY 12 ERRORS 



jINITXALIZE *OUTADR* TO 
^INITIALIZE *INADR' TO 312 

jGOING IN OR OUT? 

jGQING OUT, BRANCH 

I SET CYL ADRES BITS FOR GOING IN 

jFORM DISK ADRES FOR INNER CYLINDER 



jSET CYL ADRES BITS FOR GOING OUT 
jFORM DISK ADRES FOR GOING OUT 



jALLOW 2 RETRIES 
fWHEN ERRORS OCCUR 



jGO REPOSITION HEADS 

?READ ALL HDRS FROM THIS CYLINDER 

jFRQM THIS CYL, SEC 

jINTO THIS BUS ADRES 

> SET RETURN ADRES FOR LOOPING ON ERROR 

fREAD FORMAT, GO 

JWAIT FOR CONTRL RDY 

JSIN? 

$N0, BRANCH 
jSAVE RKER 
jSAVE RKDS 
?GET RETRY ft 

fGET CYL «'S BELOW *N WHICH 
fSEEK WAS TRIED 
fTiPE "SIN* 

j 'SIN* OCCURRED ON DOING IMPLIED 
jSEEK FROM *CYLA" TO *CYL8' (IN 

jEROR MESAGE) , 
jDONE 2 TRIES? 
;YES, BRANCH 
jNQ, RETRY 



j ALLOW LESS THAN 12 ERQRS OF THE 
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2583 


007072 


001527 






2584 










2585 










2586 










2587 










2588 










2589 


007074 


010577 


172364 




2590 


007100 


012777 


000011 


172350 


2591 


007106 


104422 






2592 


O07110 


000424 






2593 










2594 


007112 


004737 


007260 




2595 










2596 


007116 


012737 


006716 


001110 


2597 


007124 


005737 


001500 




2598 


007130 


001414 






2599 


007132 


104020 






2600 










2601 










2602 


007134 


005237 


001254 




2603 


007140 


022737 


000002 


001254 


2604 


007146 


001263 






2605 


007150 


005237 


001506 




2606 


007154 


001002 






2607 


007156 


000137 


007352 




2609 










2609 


007162 


005704 






2610 


007164 


001006 






2611 










2612 


007166 


005204 






2613 










2614 


007170 


062737 


000040 


001262 


2615 


007176 


000137 


006664 




2616 










2617 










2618 


007202 


005004 






2619 










2620 


007204 


162737 


000040 


001260 


2621 


007212 


005237 


001476 




2622 










2623 


007216 


001457 






2624 










2625 


007220 


000137 


006664 




2626 










2627 










2628 










2629 










2630 










2631 










2632 










2633 










2634 


007224 


005704 






2635 


007226 


001404 






2636 


007230 


013777 


001260 


172226 


2637 


007236 


000403 






2638 


007240 


013777 


001262 


172216 



fABOVE KIND 

;IF MORE SKIP THIS TEST 

jSIN OCCURED WHEN GOING TO CYL (IN 

fR5), A DRVE RESET HAS BEEN DONE, 

jNOW TRY POSITIONING HEADS ON 

|THAT CYL B 

?SET CYL ADRES 

; SEEK, GO 



?IF NO SIN, ENTER HERE 

I GO CHECK IF CORRECT HEADERS WERE READ 

jSET LUP ADDRESS 

fWAS THERE A BAD HDR? 

?N0, BRANCH 

jWRONG HEADERS WERE READ FROM 

?*SEC I'S, ON DOING AN IMPLIED 

fSEEK CRDFMT) FROM *CYL&* TO y CYL8 ff 

jALLOW 2 TRIES 

jGO TRY 2ND TIME 
fALLOW ONLY 12 ERRORS 

;IF MORE, EXIT THIS TEST 

IGOING WHICH WAY? 

f*INADR' TO *OUTADR% BRANCH 

j "OUTADR* TO "INADR* 

I INDICATE THAT NXT TIME GOING 

jFROM *INADR* TO "OUTADR* 

; INCREMENT CYCLINDER ADRES 

?GQ BAK & DO IMPLIED SEEK 

fFROM *INADR* TO 'OUTADR* 

1 1NDICATE THAT NXT TIME GOING 
?FROM *OUTADR* TO *INADR* 
^DECREMENT CYLINDER ADRES 
?DONE ALL 312 FORWARD-BACKWARD 
| SEEK PATTERNS 
BEQ TST6 ulF YES* EXIT 

JMP 1§ fir NOT, GO BAK 6 DO IMPLIED 

fSEEK FROM "OUTADR* TO ff INADR* 

|THI8 SUBROUTINE IS ENTERED AFTER A S SIN 9 ERROR OCCURED ON GOING FROM 

p*CYLA' TO *CYLB* AS INDICATED IN THE ERROR MESSAGE^ BEFORE RETRYING THE 

{HEADS HAVE TO BE POSITIONED BACK TO *CYLA% NOTE THAT A DRIVE RESET 

?WAS DONE TO CLEAR SIH a 

}R4sbQ» INDICATES SEEK IS BEING DONE FROM *OUTADR* CYLINDER TO ' INADR*C¥LXND£R S 

|R4«i# INDICATES THAT SEEK IS BEING DONE FROM *INADR* TO *OUTADR% 

SBR31 TST R4 ?GOING WHICH WAY? 

BEQ 1® j IF FROM "OUTADR* TO *INADR*, BRANCH 9 

MOV INADR,§RKDA 

BR 20 
lit MOV OUTADR, §RKDA 



MOV 


R5,§RKDA 


MOV 


#11,#RKCS 


TST a RWS 




BR 


11$ 


JSR 


PCCHKHDRS 


MOV 


#4S,§LPERR 


TST 


INDX3 


BEQ 


11$ 


ERROR 


20 


INC 


RETRY2 


CMP 


#2,RETPY2 


BNE 


48 


INC 


ERCNT2 


BNE 


11$ 


JMP 


EXT5 


TST 


R4 


BNE 


12$ 


INC 


R4 


ADD 


#40#OUTADR 


JMP 


1$ 



SUB 
INC 



#40,INADR 
INDX2 
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2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

265! 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 . 

2672 

267 3 

2674 

2675 

2676 

2677 

2678 

2679 

268U 

2681 

2682 

2683 

2684 

2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 



007246 012777 0QQ011 172202 
007254 104422 
007256 000207 



007260 
007262 
007266 
007272 
007276 
007302 
007310 

007314 
007320 
007322 
007324 

007326 
007332 
007336 
007340 
007342 
007346 
007350 
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2»| MOV 911f9RKCS 

TST g RWS 
RTS PC 



fCHKHDRS 

fTHIS ROUTINE CHECKS THAT THE HEADERS READ PREVIOUSLY WERE CORRECT, 

j IF NOT, THE BAD HEADERS AND THE SECTOR #*S FROM WHICH THEY WERE READ 

j ARE STORED , 

yON ENTRY! 

jRS CONTAINS DISK ADDRESS FROM WHERE HEADERS WERE READ 9 

fOUTBUF - 12 HEADRERS READ PREVIOUSLY APE STORED STARTING *OUTBUF% 

I ON EXITS 

jINDX3®0* IF THE HEADERS WERE CORRECT 

|INDX3b1i IF THE HEADERS WERE INCORRECT 

jBUFR - SECTOR t e B GIVING BAD HEADRERS ARE STORED STARTING AT **BUFR% 

jBUFRl - BAD HEADERS FOR THE ABOVE SECTORS ARE STORED STARTING 'BUFR1* 

jTHE BAD SECTOR TABLE IS TERMINATED BY A '111111° W0RD 9 



005000 
012701 
012702 
012703 
010537 
042737 
005037 

023711 
001406 
011123 
010022 

012712 
005237 
005721 
005200 
022700 
001362 
000207 



026446 
001266 
001320 
001120 
160037 
001500 

001120 



177777 
001500 



001120 



CHKHDRSl CLR 
MOV 
MOV 
MOV 
MOV 
BIC 
CLP. 



988 



007352 004737 016772 



EXT5I 



CMP 
BEQ 
MOV 
MOV 

MOV 
INC 
1ST 
INC 
CMP 
BNE 
RTS 

JSR 



RO 

§?0UTBUF*R1 

#BUFR»R2 

#BUFR1,R3 

RS,SGDADR 

#160037, IGDADR 

INDX3 

•GDADR»CR1) 

10$ 

(Ri)»CR3)* 

RO, CR23* 

#177777, (R2) 

INDX3 

(Rl) + 

RO 

#14rR0 

9S 

PC 

PC, ABRT 



^INITIALIZE FOR 14 HDRS 

SlNITIZLXZE PTR TO HDRS RECVD 

^INITIALIZE PTR TO SECTOR TABLE 

^INITIALIZE PTR TO BAD HDR TABLE 

?GET EXPCTD HEADER 

jCLR FLG INDICATING BAD HDRS 

?HEADER OK? 
jYES, BRANCH 
j SAVE BAD HDR 
?SAVE BAD SECTR I! 

|PUT TERM1NATR ON SECTR TABLE 
?SET FLG INDICATING BAD HDR 
jINCRMNT PTR TO NXT HDR 
fALL HDRS CHKD? 

jIF NOT, LUP BAK 



j#TEST 6 WRITE PATTERNS ON THE DISK 

j#IN THIS TEST DIFFERENT PATTERNS APE WRITTEN ON THE ENTIRE DISK, 7 
pfcWORDS (3 SECT0PS5 ARE WRITTEN AT A TIME 9 TWO 768 WORDS LONG 

?®BUFFERS HAVE BEEN USED IN THIS TEST S WHILE ONE BUFFER IS - 
j#USED TO WRITE ON THE DISK, THE OTHER BUFFER GETS FILLED UP WITH 
$#PATTERNS TO BE USED NEXTJ THIS OVERLAPPING IS DONE TO SAVE 'TIME, 

j&THREE PATTERN^GENERATOR SUBROUTINES ARE USED? 

1*1, PTGENO 2* PTGEN1 3 e PTGEN2 4 „ PTGEN3 

j*THESE THREE ROUTINES ARE CALLED IN A CYCLIC ORDERl 

f * PTGEN0«*PTGENl«»PTGEN2-PTGEN3«»»pTGEN0" s PTGENl , , , * • , » . 

j*THE FOLLOWING ORDER IS MAINTAINED IN WRITING BLOCKS (EACH 

j#3 SECTORS LONG) USING ONE OF THE FOUR PATTERN GENERATORS! 



MD-11-DZRKL-E, RK11*RK05 DYNAMIC TEST MACY11 
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2695 
269b 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2753 
2714 
2715 
2716 
2717 
2718 

2719 007356 000004 

2720 007360 012737 177764 001S04 

2721 007366 012737 177764 001506 

2722 007374 012737 177152 001474 

2723 007402 005037 001410 

2724 007406 005037 001412 
2725 

2726 
2727 

2728 007412 013737 001230 001432 

2729 007420 012737 001414 001424 
2730 

2731 007426 004737 010044 

2732 007432 017737 171766 001430 

2733 007440 004777 171764 
2734 

2735 007444 005005 i§S 

2736 007446 005737 001410 201 

2737 007452 100407 

2738 007454 013737 001406 001434 
2739 

2740 007462 052737 000200 001412 

2741 

2742 

2743 007470 000406 

2744 

2745 007472 013717 

2746 

2747 

2748 007300 052737 000200 001410 

2749 

2750 007S06 012737 00T5I4 001110 
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WRITE PATTERNS ON THE DISK 



f*CYL 


SECTORS 


CYL 




SECTORS 


CYL 


SECTORS 


:xl 


SE 


:ctof 


iS 


j# SUR 




ROUTINE 




SUR 




ROUTINE 




SUR 


ROUTINE 




SUR 




ROUTI 


}* 


0-2 


PTGENO 








6-10 


PTGEN1 





3-5 


PTGEN2" 





13 


-13 


PTGEN3 


?* 1 


0-2 


PTGENO 





1 


6-10 


PTGENi 





1 3-5 


PTGEN2 





1 11 


-13 


PTGEN3 


|» 1 


0-2 


PTGENO 


1 





6-10 


PTGENI 


1 


3«5 


PTGEN2 


1 


13 


-13 


PTGEN3 


J# 1 1 


0«2 


PTGENO 


1 


i 


6-10 


PTGENI 


1 


1 3»5 


PTGEN2 


1 


1 13 


-13 


PTGEN3 


t# 2 


0-2 


PTGENO 


2 





6-10 


PTGENI 


2 


3«5 


PTGEN2 


2 


13 


-13 


PTGEN3 



j*ETC# EIC e!e9 « 
j*THE ABOVE SHOWN STAGGERING 
f#SAVE ONE REV C40MS) EVERY 
|#IF YOU WANT TO USE BUFFERS 
l^MAKE THE FOLLOWING CHANGES 
S&CHANGE *PBUFO* TO STARTING 
{^CHANGE 'PBUF1* TO STARTING 



(OF SECTORS TO BE WRITTEN) IS DONE TO 
TIME A BLOCK (3 SECTORS) IS WRITTEN^ 
STARTING AT SOME OTHER MEMORY ADDRESS 

ADDRESS OF THE FIRST 768 WORDS LONG BUFFER, 
ADDRESS OF SECOND 768 WORDS LONG BUFFER^ 



j»IF YOU WANT TO WRITE YOUR OWN PATTERNS USING PATTERN GENERATOR 'PTGENO 81 
?#CHANGE *PTRN01 ff AND *PTRN02* TO THE PATTERNS YOU WANT, 

j#TO WRITE THE SAME TWO (OR ONE) PATTERNS ON THE ENTIRE DISK CHANGE 

I&LOCATION *PATl ff TO ^PTGENO* THE STARTING ADDRESS OF PAT*°GENERAT0R 

^LOCATION "PAT2 9 TO 'PTGENO* THE STARTING ADDRES OF PAT^GENERATOR 

^LOCATION *PAT3* TO *PTGENQ* THE STARTING ADDRESS OF PAT^GENERATOR 

TSTSi SCOPE 



MOV 
MOV 
MOV 
CLR 
CLR 



MOV 
MOV 

JSR 
MOV 
JSR 

CLR 
TST 
BMI 

MOV 

BIS 



#-14,ERCNTl 
#*»14,ERCNT2 
#-626,INDXl 
BUFLGO 

BUFLG1 



DRIVAD,DSKADR 

#PATO f PRSPAT 

PCfGETBUF 

$PRSPAT,PGSUBR 

PC8PGSUBR 

RS 

BUFLGO 

38 ' 

PBUF1#BUSADR 

#BIT7*BUFLGi 



001404 001434 3H 



MOV 


PBUFO,BUSADR 


BIS 


•BIT7# BUFLGO 


MOV 


#4$,$LPERR 



fSET COUNT FOR 313X2 TRACKS 
jCLR FLAG FOR BUFR 
fCLR FLAG FOR BUFR 1 
jBIT 7 OF ABOVE FLAGS WHEN SET 
? INDICATES, THAT BUFR TO BE USED 
?FOR WRITING ON DSK 
?GET DRIVE ft, DISK ADRES 
^INITIALIZE PTR TO THE FIRST 
jPATRN GENERATOR 



j GO GENERATE PATRNS FOR 

;3 SECTOR (400X3) 

^INITIALIZE COUNT FOR 4 BLOCKS 

jFIND OUT WHICH BUFR TQ USE 

jFOR WRITING ON DSK 

fUSE 'I0BUF1* FOR TRANSFER 

I OR THE ONE INDICATED BY THE USER 

j SET FLAG TO INDICATE THAT 

jWRTING ON DSK WILL B DONE FROM 

jTHIS BUFR (BUF 13 



jUSE *IOBUFQ* FOR TRANSFER 

?0R THE ONE INDICATED BY THE USER 



?INDICATE THAT *IOBUF0* WILL 
yB USED FOR WRTING ON DISK 
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? SET RKDA 



2751 


007514 


011777 


00M32 


171742 


4Si 


MOV 


DSKAM # iRKD& 


2752 


007522 


013777 


001434 


171732 




MOV 


BUSADR,IRKBA 


2733 


007530 


012777 


176400 


171721 




MOV 


#-1400,8RKWC 


2754 


007S36 


012777 


000003 


171712 




MOV 


#3,@RKCS 


2755 
















2756 


007S44 


013737 


001424 


001426 




MOV 


PRSPAT*NXTPAT 


2757 


007552 


023727 


001424 


001422 




CMP 


PRSPAT*#PAT3 


2758 


007560 


001004 








BNE 


51 


2759 


007562 


012737 


001414 


001431 




MOV 


#PATO*NXTPAT 


2760 


007S70 


000403 








BR 


6$ 


2761 


007572 


062737 


000002 


001426 


5$S 


ADD 


«,NXTPAT 


2762 


007600 


004737 


010044 




6$S 


JSR 


PC,GETBUF 

@NxT°PAT,PGSUBi 


2763 


007604 


017737 


171616 


001430 




MOV 


2764 


007612 


004777 


171612 






JSP 


PC,IPGSUBR 


276S 
















2766 


007616 


104421 








CON s RDY 




2767 


007620 


032777 


140000 


171630 




BIT 


#140000*@RKCS 


2768 


007626 


001411 








BEQ 


12$ 


2769 


007630 


004737 


016162 






JSR 


PCGT4RG 


2770 


007634 


104021 








ERROR 


21 


2771 


007636 


104415 








C0N 9 RESET 


2772 


007640 


005237 


001504 






INC 


ERCNT1 


2773 


007644 


001002 








BNE 


12$ 


2774 


007646 


000137 


010432 






JMP 


EXT6 


2775 


007652 


032777 


001000 


171S72 


12SS 


BIT 


#BXT9,§RKDS 


2776 


007660 


001412 








BEG 


78 


2777 


007662 


004737 


016162 






JSR 


PC,GT4RG 


2778 


007666 


104022 








ERROR 


22 


2779 


007670 


104415 








C0N 8 RESET 


27BU 


007672 


104416 








DRV a RESET 


278! 


007674 


005237 


001506 






INC 


ERCNT2 


2782 


007700 


001002 








BNE 


7$ 


2783 


007702 


000137 


010432 






JMP 


EXT6 


2784 
















2785 
















2786 


007706 


105737 


001410 




7SI 


TSTB 


BUFLGO 


2787 


007712 


100003 








BPL 


88 


2788 


007714 


005037, 


001410 






CLR 


BUFLGO 


2783 
















2790 


007720 


000402 




: ' 




BR 


9S 


2791 


007722 


005037 


001412 




SSI 


CLR 


BUFLG1 


2792 
















2793 


007726 


013737 


001426 


001424 


9SI 


MOV 


NXTPAT,PRSPAT 


2794 
















2795 


007734 


010500 








MOV 


R5,RG 


2796 


007736 


116000 


010426 






MOVB 


SECPTRCR05»RG 


279? 


007742 


U42737 


000017 


001432 


10$s 


B1C 


#17,DSKADR 


2798 


007750 


050037 


001432 






BIS 


RO,DSKADR 


2799 


007754 


005205 








INC 


R5 


2800 


007756 


022705 


000004 






CMP 


#4,R5 


28U1 


007762 


001231 








BNE 


28 


2802 
















28 3 


007764 


032737 


000001 


001474 




BIT 


#BIT0,INDX1 


2804 


007772 


001415 








BEQ 


HS 


2805 


007774 


005237 


001474 






INC 


INDXI 


280b 


050000 


001002 








BNE 


8 *6 



j WRITE THE 4 SECTORS ON 

?DISK ' 

fWHILE THE PATRNS R BEING WRITTEN 

jGO GENERATE THE NXT PATRNS 

jTO B WRITTEN 

jKEEP GENERATING PATRNS IN THIS 



>W 



? GQ GENERATE THESE PATRNS, 
j(3 X 4003 WORDS 

jANY ERROR? 

? GET RKCS,ER,D5,DA 

lERROR ON DOING WRITE 

jCLEAR IT 

I ALLOW 12 ERRORS AT MOST 

fIF MORE, EXIT 

jSINj ON DOING WRITE? 



jSIN ERROR ON DOING WRITE 
jALLOW 12 ERRORS AT MOST 



jFIGURE OUT WHICH BUFFER IS 

^AVAILABLE FOR USE 

fWAS PREVIOUS DSK-WRITE DONE 

FUSING BUFR 0? 

jYES» CLR FLAG INDICATING IT'S 

^AVAILABLE NOW 

|CLR FLAG INDICATING BUFRi 

lIS AVAILABLE NOW 

?*PRSPAT ff S PATRNS WILL BE USED 

fON NEXT WRITE 

?FORM SEC * TO BE USED NXT TIME 

?GET SEC * 

;MASK SECTOR BITS FROM DSK^ADRES 

jFORM NXT DSK«ADRES 

jDONE WITH 12 SECTRS (3 BLOCKS)? 



jON THIS SURFACE? IF NOT, GO 

jDO NXT 4 SECTRS 

jWHICH SURFACE WAS DONE, OR 1? 

? IF 0, GO DO SURFACE 1 

fCOUNT # OF TRACKS 
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2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2B18 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2928 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 



010002 
010006 
010014 
010022 
010026 
010032 
010040 



010044 
010050 
O10052 
010060 
fUQ066 
010Q70 
010076 
010104 



000137 
042737 
062737 
000137 
005237 
052737 
000137 



005737 
100007 
052737 
013737 
000207 
052737 
013737 
000207 



010436 
000020 
000040 
007444 
001474 
000020 
007444 



010106 
010112 
010116 

Ot0t22 
010124 
010126 

010130 
010134 
010136 
010140 
010142 
010144 
010150 



100000 
001406 



100000 
001404 



010154 010120 



010156 
010160 



005202 

001375 



010162 000207 



001432 
001432 



001432 



001412 
001446 



001410 
001446 



013700 001446 

013701 010164 
012702 177400 

010120 
005202 
001375 



012702 
005101 
010120 
005202 
001375 
012702 
013701 



177400 
010166 



;EXIT IF DONE 

?G0 TO SUR 0, NEXT CYLINDER 

?G0 BACK AND DO WRITE 

?COUNT ft OF TRACKS 

I SET BIT FOR SUR 1 

j GO, WRITE PATRNS ON SURFACE 1 



JMP TST7 

BIC #20,DSKADR 

ADD #40»DSKADR 

JMP IS 
IIS! INC INDXI 

BIS #20,DSKADR 

JMP IS 
S&GET BUF# 

SETHIS ROUTINE FINDS OUT WHICH BUFFER (IQBUFO, I0BUF13 OR ONE OF 
r #THE TWO BUFFERS SELECTED BY THE USER) TO USE 

j^FOR GENERATING PATTERNS* THEN IT SETS UP A FLAG INDICATING THAT 
jfcBUFFER HAS TO BE FILLED UP a THE STARTING ADDRESS OF THE 
?#BUFFER IS STORED IN ff BUF * * a 



GETBUFl TST 
BPL 

BXS 
MOV 
RTS 
BIS 
MOV 
RTS 



111 



fBUFR AVAILABLE FOR USE? 
I YES, BRANCH 

>N0# USE BUFR i, INDICATE SO a 
I SAVE STARTING ADRES OF BUFRI 

? INDICATED, USING BUF 

fSAVE STARTING ADRES OF BUFR 

fRETURN 



010164 

010166 



125252 
010421 



BUFLGO 
1* 

#BIT15,BUFLG1 
PBUF1#BUFN0 

PC 

#BIT15# BUFLGO 

PBUFQ,BUFNQ 

PC 
j^PTGENG 

f#THIS ROUTINE GENERATES A 768 (3X2563 WORDS LONG 
^BUFFER CONTAINING THE FOLLOWING PATTERNS 
?®FIRST BLOCK OF 256 WQRDSj 125252 

j&SECOND BLOCK OF 256 WORDSs 052525 {COMPLEMENT OF ABOVE) 
?®THIRD BLOCK QF 256 WORDS! 010421 
l«YOU CAN USE ANY OTHER PATTERN/S Cfc ITS COMPLEMENT) 
l#MAKING THE CHANGES IN THE 2 LOCATIONS SHOWN BELOW* 

}GET STARTING ADRES OF BUFR 
j GET PATRN TO BE GENERATED 
fIN THE FIRST 400 WORD BLOCK 

3 GENERATE THE FIRST BLOCK 
IWITH *PAT01* PATRN 
jALL DONE? 



SCOMPLEMENT *PAT01* PATAN 
jGENERATE 2ND BLOCK WITH 
j*PAT0i*S COMPLEMENT PATRN 
fALL DONE? 

pGET PATRN TO BE GENERATED 

fFOR 3RD BLOCK 

^GENERATE 3RD BLOCK USING 

5*PATG2* PATRN 

|ALL DONE? 

1 RETURN 

jCHANGE THESE LOCATIONS IF 
? YOU WANT ANY OTHER PATTERNS 



PTGENOs 


MOV 


BUFNOyRO 




MOV 


PTRN0i#Rl 




MOV 


#<®40O,R2 


111 


MOV 


R1,(R0)+ 




INC 


R2 




BNE 


IS 




MOV 


#-400, R2 




COM 


Rl 


218 


MOV 


R!*(R03* 




INC 


R2 




BNE 


2U 




MOV 


#^400, R2 




MOV 


PTRNOg,Ri 


3*1 


MOV 


R1#(R0)+ 




INC 


R2 




BNE 


3$ 



PTRNOli 125252 
PTRN02I 010421 
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2863 




















2864 








f^PTGENl 










2865 








?*THIS 


ROUTINE 


GENERATES A 768 


C3X2S6) WORDS 


2866 
2867 








f&LONG 


BUFFER 


CONTAINING THE FOLLOWING PATTERNS! 


2868 








?®FIRS1 


BLOCKS 


256 


WORDS 


000001 


fill rs 


2869 








|* 








000003 




2870 








J» 












2871 








1* 








177777 




2872 




















2873 








J&SECQND BLOCK 






177776 


FILL O'S 


2874 








}# 








177774 




2875 








$ # 








i 




2876 








j# 








000000 




2877 




















2878 








?®THIRD 


BLOCK 






000001 


FLOAT A 1 


2879 








,» 








000020 




2880 








1* 








t 




2881 








1* 








100000 




2882 




















2883 








f^BUFNO* CONTAINS 


THE STARTING 


ADDRESS OF THE 


2884 








?#BUFFER 8 










2885 




















2886 


010170 


012703 


000001 


PTGENH 


MOV 


#1 


,R3 




UNITIALIZE PATRNS 


2887 


010174 


012704 


17777S 




MOV 


#177776* 


R4 




2888 


010200 


013700 


001446 




MOV 


BUFNO,RG 




fGET STARTING ADRE 


2889 


010204 


012702 


177760 




MOV 


#- 


20, R2 




?SET COUNT 


2890 


010210 


010301 




ill 


MOV 


R3 


,R1 




^INITIALIZE PATRN 


2891 


010212 


010120 




23! 


MOV 


Ri 


,CRO)* 




^GENERATE THE FIRST 


2892 


010214 


000261 






SEC 








jBLOCK USING "FILL l'S" 


2693 


010216 


006101 






BOL 


Rl 








2894 


01O220 


103374 






BCC 


2$ 








2895 


010222 


O0S202 






INC 


R2 








2896 


010224 


001371 






BNE 


1* 






J ALL DONE? 


2897 




















2898 


010226 


012702 


177760 




MOV 


#-20*R2 






2899 


010232 


010401 




33T 


MOV 


R4 


Rl 




^INITIALIZE PATRN 


2900 


010234 


010120 




4$S 


MOV 


Rl 


CRO)* 




fGENERATE 2ND BLOCK 


2901 


010236 


000241 






CLC 








fUSING "FILL O^S" 


2902 


010240 


006101 






ROL 


Rl 








2903 


010242 


103774 






BCS 


48 








2904 


010244 


005202 






INC 


R2 








2905 


010246 


001371 






BNE 


33 






f DONE? 


2906 




















2907 


010250 


012702 


177760 




MOV 


#-20 # R2 




jSET COUNT 


2908 


010254 


010301 




5$; 


MOV 


R3, 


Rl 




jINITIALIZE PATRN 


2909 


010256 


010120 




6SI 


MOV 


Rl, 


CRO) + 




^GENERATE THE 3RD BLOCK 


2910 


010260 


006301 






ASL 


Rl 






?USING "FLOAT A 1 H 


2911 


010262 


103375 






BCC 


6g 








2912 


010264 


005202 






INC 


R2 








2913 


010266 


001372 






BNE 


5$ 






fDONE? 


2914 
2915 


010270 


000207 






RTS 


PC 






,• RETURN 


2916 








f#PTG£N2 










2917 
2918 








?#THIS 
j®BUFFE 


ROUTINE 
R CONTA] 


GENERATES 
WING THE 


A 768 

rOLLOWI 


(3X256) WORDS LONG 
YG PATTERNS* 



010272 005001 
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2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
29 4 3 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2932 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
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010274 
010300 
010302 
010304 

010306 
010310 
010312 
010316 
010320 
010322 
010324 
010330 
010332 



013700 
010120 
105201 
001375 

005001 
010120 
062701 
103374 
005001 
010120 
062701 
103374 
000207 



®FIRST BLOCK-256 


WORDS 


000000 
000001 
000002 


# 




I 
000377 


^SECOND BLOCK 
* 




000000 
000400 
001000 


# 




177400 


#THIRD BLOCK 




000000 
000401 



COUNT PATRN^LOWER BYTE 
0«377 



COUNT PATRN»HIGHER BYTE 

'0-377 



COUNT PATRN^HIGHER & LOWER BYTE 
0-377, 0<®377 



* 177777 

#*BUFNO ff CONTAINS THE STARTING 



PTGE 


N28 CLR 


Rl 




MOV 


BUFNO,R0 


l»t 


MOV 


Ri # CRO)* 




INCB 


Rl 




BME 


1$ 




CLR 


Rl 


2»l 


MOV 


Rl, CRO)+ 




ADD 


#400#R1 




BCC 


2& 




CLR 


Rl 


38t 


MOV 


R1,CR0)+ 




ADD 


#401, Rl 




BCC 


3$ 




RTS 


PC 



ADDRESS OF THE BUFFER* 
JINITIALIZE PATRN 



JGENERATE 1ST BLOCK USING 
fUSING 'COUNT UP LOWER BYTE 8 " 
jDOWE? 



1 GENERATE 2ND BLOCK 

fUSING 'COUNT UP HIGHER BYTE* 

fDONE? 

^GENERATE 3RD BLOCK USING 

j 'COUNT UP HIGHER & LOWER BYTE 9 

jALL DONE? 

j RETURN 



JPTGEN3 

SETHIS ROUTINE GENERATES A 768 C3X2562 WORDS LONG 

J&BUFFER CONTAINING THE FOLLOWING PATTERNS! 



?#FIRST BLOCK OF 2S6 WORDS! 



167356 (COMPLEMENT OF 010421) 



|®SEC0N1 


5 BLOCK 


1*. 




1® 




I* 




I^THIRD 


BLOCK 


f* 




f» 




1® 





177776 FLOAT A 
177775 



077777 



000377 COUNT UP HIGHER BYTE 0«*377 
000776 COUNT DOWN LOWER BYTE 377-0 
I 
177400 

j**BUFWO* CONTAINS THE STARTING ADDRESS OF THE BUFFER, 
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2975 


010334 


013700 


001446 


2976 


010340 


012702 


177400 


2977 


010344 


013701 


010166 


2978 


010350 


005101 




2979 


010352 


010120 




2990 


010354 


005202 




2981 


010356 


001375 




2982 








2983 








2984 


010360 


012702 


177760 


2985 


010364 


000261 




2986 


010366 


012701 


177776 


2987 


010372 


010120 




2988 


010374 


006101 




2989 


010376 


103775 




2990 


010400 


005202 




2991 


010 402 


001370 




2992 








2993 








2994 


010404 


012701 


000377 


2995 


010410 


010102 




2996 


010412 


010120 




2997 


010414 


060201 




2998 


010416 


022701 


177777 


2999 


010422 


001373 




3000 


010424 


000207 




3001 








3002 








3003 








3004 


010426 


006 




3U05 


010427 


003 




3006 


010430 


on 




3007 


010431 


000 




3008 








3009 


010432 


004737 


016772 


30S0 








3011 








3012 








30 U 








3014 








3015 








3016 








3017 








3018 








3019 








3020 








3021 








3022 








3023 








3024 








3025 








3026 








3027 








3028 








3029 








3030 









PTGEN3 8 


MOV 


BUfNO»RO 




MOV 


#«40Q,R2 




MOV 


PTPN02 f Pi 




COM 


Rl 


4*1 


MOV 


HI, £R03* 




INC 


R2 




BNE 


4S 




MOV 


#«*2G*R2 


7$g 


SEC 






MOV 


»1777T6#R1 


8$£ 


MOV 


Ri,CRO)+ 




RQL 


Rl 




BCS 


8$ 




INC 


R2 




BNE 


78 




MOV 


#377, Rl 




MOV 


R1,F2 


9SJ 


MQV 


Rli(RO)+ 




ADD 


R2,R1 




CMP 


#-i»Rl 




BNE 


9§ 




RTS 


PC 



?GET PATTERN 

^COMPLEMENT *PAT02* PATRN 
GENERATE 1ST BLOCK 

ALL DONE? 

2ND BLOCK 



I GENERATE 3RD BLOCK USING 
I "COUNT DOWN LOWER BYTE" 
? 'COUNT UP HIGHER BYTE* 

?ALL DONE? 
jRETURN 

j SECTOR POINTER TABLE~, DATA TRANSFERS ARE DONE IN BLOCKS (3 SECTORS 
fEACH) IN THE CYCLIC ORDERS Q<»2, 6-10, 3»5# ll-13# 0-2, AND SO 0N„ 
SECPTRf 9 BYTE 6 

9 BYTE 3 

9 BYTE 11 

a BYTE 



EXT65 



JSR 



PC,ABRT 



j^TEST 7 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 

l#*##TEST 6 (WRITING PATTERNS ON DISK) SHOULD BE DONE BEFORE DOING**** 
! ####THIS TEST„##-&& 

}#IN THIS TEST THE PATTERNS THAT WERE WRITTEN BEFORE (IN THE 

}*PREVIOUS TEST) ARE READ BACK AND SOFTWARE COMPARED,, 

?#WHILE THE SOFTWARE COMPARISON IS TAKING PLACE, AN OVERLAPPING 

l**WRXTE CHECK* IS DONE FOR THE SAME BLOCK s THE READING 

?*BACK OF EACH BLOCK (4 SECTORS) IS DONE IN THE SAME 

j#MANNER AS DESCRIBED IN THE BEGINNING OF PREVIOUS TEST g 

^OVERLAPPING OPERATIONS AND STAGGERING OF BLOCKS ARE DONE IN 

?#A SIMILIAR MANNER^ 

I#THE FOLLOWING IS A DESCRIPTION OF HOW ERRORS ARE HANDLED^ 

J*IF A 'SIN* OR S HE* OCCURS IT IS REPORTED AND THAT BLOCK 

f*IS SKIPPED 9 IN THIS STAGE OF TESTING THESE ERRORS SHOULD NUT 

j#NORMALLY 0CCUR 8 

l*IF A CHECKSUM ERROR OCCURS, CONTROL IS TRANSFERRED TO 
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30 31 
3032 
10 3 3 
30 3 4 
1035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 



010436 
010440 
010446 
010454 
010462 
010470 
010476 
010504 
010512 

010516 
010524 



010532 
010536 
010542 
010550 
010556 

010564 
010572 



000004 
012737 
012737 
012737 
012737 
0127 37 
012737 
012737 
005037 

012737 

013737 



005037 
005037 
012737 
012737 
012737 

013737 
013737 



177764 
177773 
177742 
177742 
177764 
177742 
177152 
001476 

001414 
001230 



OOlglO 
001512 
001S14 
001516 
001520 
001522 
001474 



001424 
001450 



001504 
001506 
177775 
177776 
000003 

001450 
001406 



001252 
001254 
001256 

001440 
001442 



010600 012737 176400 001444 



010606 
010614 
010622 



013737 

012737 
013737 



001450 
176400 
001404 



001432 
001436 
001434 
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f**CSERFOR*, FIRST THE CSE IS REPORTED, THE SECTOR GIVING 

J&CSE IS READ AGAIN,, IN ALL 3 TRIES ARE DONE, IF STILL 

}#THE ERROR PRESISTS THAT SECTOR IS ABORTED AND THE REST 

f#OF THE SECTORS ARE READ AND CHECKED FOR CSE S IF 

J&AGAXN SOME OTHER SECTOR GIVES CSE, REPORTING AND RETRIES 

?*APE DONE AGAIN 9 

J#NEXT SOFTWARE COMPARISON IS DONE OF THE DATA THAT WAS 

j#READ 8ACK S ON GETTING A DATA MISCOMpARISON 

f*THE RELEVANT INFOCGOOD DATA, BAD DATA, ADDRESS ETC 9 ) IS 

?#STORED* AFTER THE WHOLE BLOCK HAS BEEN CHECKED, THE DATA 

|#ERROR/S IS/ARE REPORTED, THEN THE BLOCK IS READ AGAIN S IN ALL 

?*THREE TRIES ARE D0NE 9 

£*WHILE THE DATA COMPARISON (SOFTWARE) IS GOING ON THE *WRIT£ 

faCHECK* IS ALSO IN PROGRESS,, IF A WRITE CHECK ERROR OCCURS THE 

|®CONTROL IS TRANSFERRED TO 8 WCER0R* e WRITE CHECK OF THE SECTOR 

I^THAT GAVE WCE IS DONE AGAIN 9 IN ALL THREE TRIES ARE DQNE 9 " 

J&NOTE THAT EVERY WCE IS REPORTED^ IF ALL THE 4 SECTOR OF 

j#A BLOCK GAVE WCE*S, ALL 4 WILL BE REPORTED AND RETRIED, 

^DEPENDING ON THE NATURE OF THE PROBLEM, THE ABOVE ERRORS 
ffcCAN OCCUR IN ANY COMBINATION, IT IS RECOMMENDED THAT ALL 
j#THE ERROR MESSAGE BE CAREFULLY CORRELATED AND EXAMINED 8 IT 
f^WILL PROVIDE A DEEP INSIGHT INTO THE PROBLEM a 

TST7 8 SCOPE 

?ALLOW 12 ERRORS AT THE MOST 
pALLOW § ERRORS AT THE MOST 
?ALLOW 10 ERRORS AT THE MOST 
?ALLQW 10 ERRORS AT THE MOST 
J ALLOW 12 ERRORS AT THE MOST 
jALLOW 10 ERRORS AT THE MOST 
;SET COUNT FOR 626 TRACKS 
jCLR COUNT FOR 4 BLOCKS ON A TRACK 

?INITLZE PTR TO PATRN GENRTR 
jINITLZE DRV8, ADRES 



J IF > 0, MEANS THAT RETRIES 
jDONE AFTER CSE OR CSE CHKD 
fRETRY COUNT FOR CSE 
jRETRY COUNT FOR SFTWRE MISCMP*N 
JRETRY COUNT FOR WCE 

?DISK ADRES TO WRT CHK WITH 

JUSE THIS BUFR 1 TO WRT CHK 

|0R THE BUFR INDICATED BY THE USER 

I WRT CHK 1 BLOCKis3SECSsi400 WRDS 

?DIS& ADRES TO READ FROM 

}1 BLOCK a 3 SECTORS ■ 1400 WRDS 

?USE "IOBUF0" TO READ INTO 

fOR THE BUFR INDICATED BY THE USER 



010630 000404 



MOV 


#*»!4,ERCNI3 


MOV 


#«5*ERCNT4 


MOV 


#«36,ERCNT5 


MOV 


#^36,ERCNT6 


MOV 


#»14,ERCNT7 


MOV 


#-36,ERCNT8 


MOV 


#«*626,XNDX1 


CLR 


INDX2 


MOV 


#PATO#PRSPAT 


MOV 


DRIVAD, ADRES 


CLR 


ERCNTl 


CLR 


ERCNT2 


MQV 


#«3rRETRYl 


MOV 


#«2*RETRY2 


MOV 


#3,RETRY3 


MOV 


ADRES, WDSKAD 


MOV 


PBUF1#WBU8AD 


MOV 


#«®|4Q0,WWRDCN 


MOV 


ADRES, DSKADR 


MOV 


#*>14O0,WRDCNT 


MOV 


PBUFO,BUSADR 


BR 


RDAGAIN 
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3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 



010632 104415 

010634 104416 

010636 000401 

010640 10441S 



010642 
010650 
0106S6 



010714 
010722 

010724 
010732 
010736 
0107 40 
010742 
010746 
010750 
010?§4 
010760 
010766 

010770 
010776 
011002 
011004 
011006 
011010 
011014 
011016 



011026 
0U032 
011034 



011040 
011Q46 
0U050 



013777 
013777 
013777 



001432 
001436 
001434 



032777 

001416 

012737 
004737 
104023 
10441S 
005237 
001002 
000137 
000137 
032777 
001417 

012737 
004737 
104011 
104415 
104416 
005237 
001002 
000137 



011022 000137 



005737 
001031 
005237 



032777 
001423 
012737 
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LUPSIN8 C0N 9 RESET 
DRV 9 RESET 
BR RDAG&IN 



LUPHEs CON 9 RESET 



170614 
170602 
170576 



RDAGAINj 



010664 012777 QO040S 170564 



010672 013737 001406 001446 
010700 017737 170S20 001430 
010706 00477? 170S16 



010712 104421 



040000 170534 



010640 001110 
016214 



001510 

012170 
011512 

001000 170464 



010632 001110 

016214 



001512 
012170 
011512 
001504 
001504 

000002 170406 
010532 001110 



IS 8 

NOHEf 



US 
NOSIN* 



MOV 
MOV 



MOV 
MOV 
JSR 



MOV DSKADR,|RKDA *READ FROM THIS DSK«ADRES 
WRDCNT,tRKWC fTHIS # OF WORDS 
BUSADR,gRKBA | INTO THIS BUFR 



#40§,§RKCS 



PBUF1,BUFN0 

IPRSPAT,PGSUBR 

PC,§PGSUBR 



C0N 9 RDY 



?READ,SSE,GO 



jSET UP STARTING ADPES 

j GO GENERATE A BUFFER 
jOF 1400 WORDS USING THIS 
jPATRN GENRATR 

SDONE WITH PATRN GENRTNG, 
jWAIT FOR CNT RDY TO SET 
j (FROM PREVIOUS READ) 







jCNT RDY SET 


BIT 


#BIT14,^RKCS 


?HARD ERROR? 


BEQ 


NOHE 





MOV #LUPHE,SLPERR 
JSR PC,GETINF 

ERROR 23 ' 
CQN 9 RESET 



INC 

BNE 
JMP 
JMP 

BIT 
BEQ 



ERCNT3 

1$ 

EXT7 

FINISH 

#BIT9,§RKDS 

NQSIN 



MOV #LUPSIN,$LPERR 
JSR PC # GETINF 
ERROR 11 

CON s RESET 
DRV S RESET 
INC ERCNT4 
BNE U 
JMP EXT7 



JMP 



FINISH 



1ST ERCNT1 
BNE WRTCHK 
INC . ERCNT1 



BIT 

BEQ 
MOV 



#BIT1 # IRKER 

WRTCHK 

$BEGIN,$LPERR 



jHARD ERROR 

fALLOW 12 ERRORS AT MOST 

jIF MORE, EXIT 

;SIN SET? 
I NO 

;SIN ON READ 

; ALLOW 5 ERRORS AT MOST 
;IF MORE, EXIT 



fCHECKING CSE FOR 1ST TIME 
yNO, BRANCH 

? INDICATE THAT CSE HAS BEEN 
fCHECKED ONCE 

fCHECK SUM EROR? 
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0U056 


004737 


016214 






JSR 


PC,GETINF 


011062 


013737 


00I2S2 


001202 




MOV 


RETRY!, 8REG10 


011070 


062737 


000004 


001202 




ADD 


#4,SREG10 


011076 


104024 








ERROR 


24 


011100 


005237 


001514 






INC 


ERCNT5 


011104 


001002 








BNE 


IS 


011106 


000137 


012170 






JMP 


EXT7 


011112 


000137 


011654 




Hi 


JMP 


CSEROR 


011116 


005037 


001506 




WRTCHKi 


CLR 


ERCNT2 


011122 


022737 


000003 


001256 




CMP 


#3,RETRY3 


011|30 


001016 








BNE 


SFTCMP 


011132 


013777 


001440 


170324 


WCAGAINj MOV 


WDSKAD,§RKDA 


O1U40 


013777 


001444 


170312 




MOV 


WWRDCN,#RKWC 


011146 


013777 


001442 


170306 




MOV 


WBUSAD,@RKBA 


1 1 1 S 4 


012777 


000407 


170274 




MOV 


#407,§RKCS 


011162 


005337 


001256 






DEC 


RETRY3 


011166 


005737 


001506 




SFTCMPf 


TST 


ERCNT2 


011172 


001060 








BNE 


WCREPT 



011174 005237 001506 



011200 012702 001266 



011204 

011210 



012703 

012704 



00i'320 
0013S2 



011214 005037 001500 



011220 


013700 


001404 


011224 


012737 


17776* 


011232 


013701 


001406 


011236 


012737 


176400 


011244 


021011 




011246 


001402 




0112S0 


000137 


012016 


011254 


005720 




011256 


005731 




011260 


005237 


001260 


011264 


001367 




011266 


005737 


001500 


011272 


001420 
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GET THE RETRY # 

SAVE IT FOR TYPEOUT 

CSE 

ALLOW 10 ERRORS AT MOST 

IF MORE, EXIT 
GO, SERVICE CSE 

CLR FLAG INDICATING SOFTWARE 

COMPARE DONE 

WRT CHK DONE BEFORE OR 

IT'S 1ST TIME? 

IF DONE, BRANCH OTHERWISE DO IT 

WRT CHK FROM THIS DSK-ADRES 

THIS • FO WORDS 

WITH THIS BUFFER 

WRT CHK,GO,SSE 

INDICATE WRT CHK DONE 

SFTWARE CMPARE DONE ONCE BEFORE? 

IF SFTWARE CMPARE HAS BEEN DONE 

ONCE DON'T DO IT AGAIN, OTHERWISE, 

DO IT, INDICATE IT IS DQNE 9 

MORE THAN ONCE BEFORE^ 

IF THIS IS 1ST TIME THRU & 

WRT CHK WAS DONE ONCE BEFORE 

DO SOFTWARE COMPARISON OF 

THE DATA THAT WAS READ FROM 

THE DISK 

INITLZE PTR TO BUFR STORING 
ADRES OF BAD DATA 
STORE EXPCTD DATA STARTING HERE 
STORE RECVD (BAD) DATA 
STARTING HERE 

CLR FLAG INDICATING MISCMPRE 

INITLZE PTR TO 'RECVD DATA" BUFR 

STORE AND REPORT 12 OR LESS DATA ERRORS 

INITLZE PTR TO *EXPCTD DATA* BUFR 

SET COUNT 

CORRECT WORD READ FROM DISK? 

BRANCH IF MISCMPRE ERROR 

INCRMNT PTRS 

TO NXT WORDS 

DONE WITH CMPRISON? 

IF NOT, COMPARE THE REST 

WAS THERE A BAD DATA WORD 
(EVEN AFTR RETRYING) 
NO, BRANCH 



MOV 
MOV 



#BUFR,R2 



«BUFR1,R3 

»BUFR2iR4 



INDX3 



COMPARS MOV 


PBUF0,R0 
#^14* XNDX4. 


NOV 


MOV 


PBUF1,R| 


MOV 


ff-1400f INADR 


CMPAGANf CMP 


(R0),£R13 


BEQ 


1$ 


JMP 


MISCMP 


l«t TST 


(R0) + 


TST 


CRD* 


INC 


INADR 


BNE 


CMPAGAN 


TST 


INDX3 


BEQ 


WCREPT 



MD*»li«DZRKL«»E, RKli«RK05 DYNAMIC TEST 
DZRKLE 9 Pli 26*»APR™77 12827 



MACYii 30CI04S) 14»JUL®-77 08l03 PAGE 62 

T7 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 



3199 


011274 


012737 


010606 


001110 


REPMSCS 


MOV 


#READ,gLPERR. 


3200 


011302 


104025 








ERROR - 


25 


3201 


011304 


005237 


001516 






INC 


ERCNT6 


3202 


011310 


001002 








BNE 


IS 


3203 


011312 


000137 


012170 






JMP 


EXT7 


3204 


011316 


005737 


001254 




1(1 


TST 


RETRY2 


3205 


011322 


001404 








BEQ 


WCREPT 


3206 


011324 


005237 


001254 






INC 


RETRY2 


3207 


011330 


000137 


010606 






JMP 


READ 


3208 
















3209 


011334 


104421 






WCREPTS 


C0N 8 RDY 




3210 
















3211 


011336 


022737 


177776 


001254 




CMP 


#«»2»RETRY2 


3212 
















3213 


0U344 


001417 








BEQ 


ERWCHK 


3214 


011346 


000401 








BR 


L,UPWCE*2 


3215 


01135 


104415 






LUPWCES 


C0N 8 RESET 


3216 


011352 


013777 


001440 


170104 




MOV 


WDSKAD,@RKDA 


3217 


011360 


013777 


001444 


170072 




MOV 


WWRDCN,§>RKWC 


3218 


011366 


013777 


001442 


170066 




MOV 


WBUSAD,§RKBA 


3219 


OS 1174 


012777 


000407 


170054 




MOV 


#407,@RKCS 


3220 
















3221 


011402 


104421 








C0N 8 RDY 




3222 


011404 


012737 


011350 


001110 


ERWCHKs 


MOV 


#LUPWCE,$LPERR 


3223 


011412 


032777 


040000 


170032 




BIT 


#BIT14»@RKDS 


3224 


0114 2 


001410 








BEQ 


XHE 


3225 
















3226 


0114 2 2 


004737 


016214 






JSR 


PC f GETINF 


3227 


013426 


104026 








ERROR 


26 


3228 


011430 


005237 


001520 






INC 


ERCNT7 


3229 


OJ1434 


001002 








BNE 


XHE 


3230 


011436 


000137 


012170 






JMP 


EXT7 


3231 
















3232 


011442 


032777 


000001 


170004 


XHEi 


BIT 


SBITOj-gRKER 


3233 


011450 


001420 








BEQ 


FINISH 


323* 


011452 


004737 


016214 






JSR 


PC,GETINF 


3235 


011456 


012737 


000003 


001202 




MOV 


#3,$REG10 


3236 


011464 


163737 


001256 


001202 




SUB 


RETRY3»$REG10 


i 3237 


H1147 2 


104027 








ERROR 


27 


3238 


011474 


005237 


001522 






INC 


ERCNT8 


3239 


01 i§00 


001002 








BNE 


IS 


1240 


011502 


000137 


012170 






JMP 


EXT7 


3241 


011506 


000337 


012062 




181 


JMP 


WCERQR 


3242 
















3243 
















3244 
















3245 
















3246 
















3247 
















3248 
















3249 
















3250 


011512 


022737 


001422 


001424 


FINISH! 


CMP 


ISPAT3,PRSPAT 


3251 


011520 


001404 








BEQ 


1$ 


3252 


011522 


062737 


000002 


001424 




ADD 


82,PRSPAT 


3253 


011530 


000403 








BR 


2S 


3254 


011532 


012737 


001414 


001424 


18l 


MOV 


8PAT0,PRSPAT 



jDATA ERROR 

?ALLOW 10 ERRORS AT MOST 



;IF MORE, EXIT 



jWAIT FOR CNTRL RDY FROM 
^PREVIOUS WRT CHK 

?IF THERE WAS A RETRY AFTER MISC 
? COMPARISON, DO WRT CHK AGAIN 



;WRT CHK WITH THIS DSK°»ADRES 
I THIS # OF WORDS 
ITHIS BUS ADRES 



?HARD ERQR?CFROM WRT CHK) 
;N0, BRANCH 



;HE ON WRT CHK 

?ALLOW 12 ERRORS AT MOST 



;IF MORE, EXIT 
jWRITE CHECK EROR? 



jGET TRY # 

fSAVE IT FOR TYPEOUT 

jWRT CHK EROR 

fALLQW 10 ERRORS AT MOST 



|IF MORE, EXIT 



JTHERE WAS NO WCE S DONE 

JWITH ALL CHECKING FOR SOFT 
;ERORS,ETC, MODIFY PARAMETERS 
I TO CHECK NXT BLOCK ON 
|THE DISK 

jFIND OUT THE NXT PATRN GENRATR 
I TO USE FOR GENRATING THE 
fBUFR, STORE POINTER TO 
?GENRATR ROUTINE IN 'PRSPAT* 
fNOTE THER R 4 PAT-GENPATRS 
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3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
J27fl 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3 301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 



011540 013701 001476 

011544 116101 010426 

011550 042737 000017 001450 

011556 050137 001450 



011562 005237 001476 



011566 022737 000004 001476 
011574 001025 



OU576 005037 001476 

011602 032737 000001 001474 

011610 001407 

011612 062737 000040 001450 

011620 042737 000020 001450 

011626 000403 

011630 052737 000020 001450 

011636 005237 00147,4 

011642 001002 

011644 000137 012174 

011650 000137 010532 



011654 017700 167604 

011660 010001 

011662 032700 000017 

011666 001002 

011670 162700 000004 

011674 005300 

011676 020037 001432 

011702 001021 

011704 00S237 0012S2 

011710 001021 



2S5 
3$l 



MOV 
MOVB 
BIC 
BIS 



INDX2,R1 
SECPTR(R13,R1 
817, ADRES 
Rl, ADRES 





CMP 
BNE 


#4,INDX2 
GOBAK 


DQNTRKf 


CLR 


INDX2 




BIT 
BEQ 


#BJT0,INDX1 
D0SUR1 




ADD 


#40, ADRES 




BIC 
BR 


#20, ADRES 
DONE 


DOSURU 


BIS 


#20, ADRES 


DONE! 


INC 
BNE 
JMP 


INDXi 
GOBAK 

TST10 


GOBAKl 


JMP 


BEGIN 


jCSEROR 






CSERORs 






1»» 


MOV 
MOV 
BIT 
BNE 
SUB 
DEC 


$RKDA,R0 
R0 # P1 

#17, RO 
IS 

#4jR0 
RO 




CMP 


RO,DSKADR 




BNE 


2i 




INC 


RETRY1 




BNE 


3$ 



jPAT0»PATl»PAT2»PAT3«"»»*°PAT0« 

fFORM SECTR ft TO BE USED NEXT 

fGET SECTR f 

j MASK SECTR BITS 

fFORM THE NEW DISK»ADRES 

jFORM THE NXT BLOCK TO BE 

|CHECKED B 

I DONE ALL 4 BL0CKSC3 SECS 

jEACH) ON THIS TRACK? 

; IF NOT, GO BAK & DO THE 
jNXT BLOCK ON THIS TRACK 

,'REINITLZE COUNT FOR 
?4 BLOCKS ON THIS TRACK 
jWHICH SUR TO DO NXT? OR 1 
?BRANCH, DO SUR 1 NXT 



?CLR SUR BIT, DO SUR NXT 

?SET SUR BIT, DO SUR 1 NXT 
?DONE WITH ALL 626 TRACKS? 



?IF NOT, GO BAK £ CHECK 
j THE NXT TRACK 

?THXS IS THE ENTRY POINT 
?FQR SERVICE ROUTINE FOR CHECK 
*SUM ERQR 9 CONTROL IS XFERED 
fHERE ONCE CSE OCCURS 

?G£T RKDA AFTER CSE 

?SAVE RKDA 

|FORM THE ADRES OF THE SECTR 

fWHICH GAVE CSE 

?R0 CONTAINS DSK^ADRES WHERE 

?CSE OCURED 

pDID A PREVIOUS RETRY (IF ANY) 

pGIVE CSE ON SAME ADRES 

}N0, THIS IS A FRESH CSE, BRANCH® 

jIF THIS WAS A CSE ON A 

&RETRY INCMNT RETRY COUNT* 

jBRANCH IF 3 RETRIES HAVEN*T 

pBEEN DONE 

j GO REPORT CSE 

j IF CSE WAS IN THE LAST SECTR OF 

?THE 3 SEC BLOCK? GO TO ^WRTCHK* 

I OTHERWISE CHECK THE REST OF 

I THE SECTORS FOR CSE, 
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3311 


011712 


010102 








MOV 


R1,R2 


3312 


011714 


042702 


177760 






BIC 


#177760, R2 


3313 


011720 


001002 






7»l 


BNE 


8$ 


3314 


0H722 


000137 


011116 






JMP 


WRTCHK 


3315 


011726 


162702 


000003 




8«t 


SUB 


#3,R2 


3316 


011732 


100372 








BPL 


7$ 


3317 
















3318 


011734 


010100 






6$5 


MOV 


R1,F0 


3319 


011736 


012737 


177775 


001252 




MOV 


#«3#RETRY1 


3320 


011744 


000403 








BR 


3$ 


3321 
















3322 


011746 


012737 


177776 


001252 


2S| 


MOV 


#-2#RETRYi 


3323 
















3324 
















3325 


011754 


010037 


001432 




311 


MOV 


RQ,DSKADR 


3326 
















3327 


011760 


163700 


001450 






SUB 


ADRES, RO 


3328 


011764 


005200 








INC 


RO 


3329 


011766 


005300 






4S| 


DEC 


RO 


3330 


011770 


001407 








8E0 


5 8 


3331 


011772 


062737 


001000 


001434 




ADD 


#10O0,BUSADR 


3332 


012000 


062737 


000400 


001436 




ADD 


#400»WRDCNT 


3333 


012006 


000767 








BR 


4S 


3334 
















3335 


012010 
012012 


104415 






SS8 


CON 9 


RESET 


3336 


000137 


010642 






JMP 


RDAGAXN 


3337 
















3338 
















3339 
















3340 
















3341 










fMISCMP 






3342 
















3343 
















3344 
















3345 
















3346 
















3347 
















3349 


012016 


104421 






MISCMPj 


C0N 9 


RDY 


3349 
















3350 


012030 


032777 


040000 


167430 




BIT 


#BIT14,@RKC3 


3351 


012026 


001401 








BEG 


IS 


3352 


012030 


104415 








C0N 9 


RESET 


3353 
















3354 


012032 


010022 






Its 


MOV 


R0#(R2)+ 


3355 
















3356 


012034 


012123 








MOV 


(Rl)*i(R3>+ 


3357 


012036 


012024 








MOV 


(R0)*,(R4)+ 


3358 


012040 


005237 


001500 






INC 


INDX3 


3359 
















3360 


012044 


005237 


001502 






INC 


INDX4 


3361 


012050 


001402 








BEQ 


4S 


3362 
















3361 


012052 


000137 


011244 






JMP 


CMPAGAN 


3364 
















3365 


012056 


000137 


011274 




4$l 


JMP 


REpMSC 


3366 

















? ALLOW 2 MORE TRIES FOR 
;THE CSE ON SAME DISK«*ADRES 

?SAVE DSK*ADRES FOR DOING 

j THE RETRY^READ 

{MODIFY THE 

fBUS ADRES & WORD COUNT 

? TO BE USE ON RETRY- 

I READ 



jCLR THE CSE IN RKER 
?G0 BACK, READ AGAIN 
jRETRY 



JTHIS IS THE ENTRY POINT 

jFQR SERVICE ROUTINE, FOR 

,-DATA EROR CMISCOMPARISON) 

?0N SOFTWARE COMPARISON 

fOF DATA READ FROM THE DISK BLOCK 



JWAIT FOR CNTRL RDY FROM 
^PREVIOUS WRT CHK 



?CLR WCE IN RKEP. 

?BUf STILL DATA EROR ENTER HERE 

jSTORE MEM ADRES WHERE 

yDATA EROR OCCURED 

fSAVE EXPCTD DATA 

fSAVg DATA RECVD (BAD) 
; INDICATE MISCMPRISON 



jSTORE ONLY 12CDEC) ERORS 

j IF 12 ERORS, GO REPORT THEM 



;G0 BACK & CMPARE THE REST 
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3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3330 
3381 
3392 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3391 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
341S 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 



012062 
012066 



005737 
003035 



012070 012737 



012076 
012102 
012104 
012110 
012112 
012116 
012122 
012124 
012126 
012132 
012136 
OS2140 
012142 
012144 
012152 
012*60 
012162 
012|64 



017700 
010002 
042702 
001002 
000137 
162702 
100372 
010001 
163700 
010137 
005200 
005300 
001407 
062737 
062737 
000767 
104415 
000137 



012170 004717 



000003 

S67362 

177760 

011512 
000003 



001440 
001440 



001000 
000400 



011132 

016772 



001256 



001442 
001444 



WCERORi TST 
BGT 



MOV 

MOV 
MOV 
BIC 
BNE 
JMP 
SUB 
BPL 
MOV 
SUB 
MOV 
INC 
DEC 
BEQ 
ADD 
ADD 
BR 
CLRERRs C0N 8 
JMP 



3SS 



4Si 



111 



2tt 



EXT7I 



JSR 



RETRY3 
CLRERR 



S3,RETRY3 

§RKDA,R0 
R0,R2 

#177760, R2 
4g 

FINISH 
#3,R2 
3S 

R0,R1 
WDSKAD,RO 
Rl f WDSKAD 
RO 
RO 

CLRERR 
#100Q,WBUSAD 
#4QQ,WWRDCN 
2§ 
ET 

PC,ABRT 



?THIS THE ENTRY POINT FOR 
?EROR SERVICE ON GETTING A 
jWRITE CHECK ER0R 8 

?DONE 3 TRIES? 
;IF NOT SKIP, OTHERWISE REPORT 



jSET CONT FOR RETRIES 

?IF WCE WAS IN THE LAST SECTOR 
?0F THE BLOCK, NO MORE SECS 
jTO CHECK, GO TO 'FINISH* 
fIF IT WASN*T LAST SECTOR OF THE 
jBLOCK, THEN CHECK REMAINING 
^SECTORS* (STARTING FROM THE 
fSEC AFTER THE ONE GIVING WCE) 
fSAVE DISK ADRES 

?GET SAVED DISK ADRES 



?FQR"M THE NEW BUS ADRES 
?FORM THE NEW WORD COUNT 



|«TEST 



10 WRITE, 



WRITE CHECK ON CYLINDERS 127, 128 



012174 000004 



ft* 
TST10S 



J#THIS TEST WRITES 12 UNIQUE PATTERNS (ONE FOR EACH 
. |#SECTOR) ON CYLINDERS 127 AND 128, THEN WRITE 
jfcCHECK IS DONE TO SEE IF THEY WERE WRITTEN 
S®C0RRECTL¥ 9 IT SHOULD BE NOTED THAT THERE IS 
f^CHANGE IN 'WRITE' CURRENT AT THIS CYLINDER 8 
ffcPATTERNS ARE RELOCATED ON THE CYLINDERS AFTER EACH 
j#WRITE/WRITE CHECK CYCLE 8 THUS THE FIRST TIME 
)«PATTERN *SP1* IS WRITTEN ON SECTOR 0, PATTERN 'SP2* ON 
?#SECTOR 2, ETC, AFTER THIS WRITE/WRITE CHECK CYCLE 
S®18 OVER PATTERN *SP2* IS WRITTEN ON SECTOR 0, PATTERN 
j#f*SP3* ON SECTOR | AND SO QN 9 THIS WRITE/WRITE 
f#CHECK CYCLE IS REPEATED 12 TIMES, THUS 
?#THE LAST WRITE/WRITE CHECK IS DONE USING 
r®PATTERN »«P12* ON SECTOR 0, PATTERN *SP1* IS 
S&WRITTE& ON SECTOR 1, PATTERN *SP2 S ON SECTOR 2 t 
}®ETC ffi IF YOU WANT TO WRITE ANY OTHER PATTERNS 
jfcFILL IN THE PATTERNS YOU WANT IN LOCATIONS 
?#*SP1% •SP2*#,,.ETC. 

SCOPE 
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3423 
















3424 


012176 


012737 


177764 


001504 




MOV 


«-l4»EFCNTl. 


3425 


012204 


012737 


177764 


001506 




MOV 


#«14»ERCNT2 


3426 


012212 


012737 


177723 


001510 




MOV 


#«55»ERCNT3 


3427 


012220 


012702 


012702 






MOV 


»SP1,R2 


3428 


012224 


010201 






DOWRTt 


MOV 


R2,R| 


3429 


012226 


012700 


007740 






MOV 


#7740, RO 


3430 


012232 


053700 


001230 






BIS 


DRIVADjRO 


3431 


012236 


005003 






WRLOll 


CLR 


R3 


3432 


012240 


104415 






WRERRf 


CON e 


RESET 


3433 
















3434 


012242 


010077 


167216 




WRLOl 


MOV 


RO,#RKDA 


3435 


012246 


012777 


177400 


167204 




MOV 


#-40Q,PRKWC 


3 4 36 


012254 


010177 


167202 






MOV 


R1,*RKBA 


3437 


012260 


012777 


004003 


167170 




MOV 


#4003,£RKCS 


3439 


012266 


104421 








CON e 


RDY 


3439 


012270 


032777 


140000 


167160 




BIT 


#140000f §RKCS 


3440 


012276 


001414 








BEQ 


4$ 


3441 


012300 


012737 


012240 


001110 




MOV 


#WRERR,SLPERR 


3442 


032306 


004737 


016162 






JSR 


PC»GT4RG 


3443 


012312 


104021 








ERROR 21 


3444 


012314 


104415 








CON a 


RESET 


3445 


012316 


005237 


001504 






INC 


ERCNTl 


3446 


012322 


001002 








8NE 


4S 


3447 


012324 


000137 


012732 






JMP 


EXT10 


3448 
















3449 


012330 


005200 






4$S 


INC 


RO 


3450 


012332 


005203 








INC 


R3 


3451 


012334 


022701 


012730 






CMP 


#SP12,R1 


3452 


012340 


001002 








BNE 


3$ 


3453 


012342 


012701 


012700 






MOV 


#SP1-2,R1 


3454 


012346 


005721 






3SI 


TST 


(Rl) + 


3455 


012350 


020327 


000014 






CMP 


F3,ffl4 


3456 


012354 


002732 








BLT 


WRLO 


3457 


012356 


001005 








BNE 


2$ 


3458 


01 2360 


010201 








MOV 


R2,Ri 


3459 


012362 


042700 


000017 






BIC 


#17#R0 


3 460 


012366 


05 27 00 


000020 






BIS 


#20 f R0 


1 3461 
















3 46 2 


0S2372 


020327 


000030 




253 


CMP 


R3, #30 


3463 


012376 


001321 








BNE 


WRLO 


3464 
















3 46 5 


012400 


032700 


007700 




WRHIS 


BIT 


8770O?R0 


3466 


012404 


001405 








BEQ 


DOWCHK 


3467 


012406 


012700 


010000 






MOV 


•10000, RO 


3468 


012412 


053700 


001230 






BIS 


DRIVAD^RO 


3469 


012416 


000707 








BR 


WRLOl 


3470 
















3471 
















3472 
















3473 


012420 


010201 






DOWCHKl 


MOV 


R2,P1 


3474 


012422 


012737 


177775 


001252 




MOV 


#«»3, RETRY! 


3475 


012430 


012700 


010000 






MOV 


#10000»RO 


347b 


012434 


053700 


001230 






BIS 


DRXVAD,RG 


3477 


012440 


005003 






WCHIli 


CLR 


R3 


3478 


012442 


010077 


167016 




WCERRi 


MOV 


RO,gRKDA 



J ALLOW 12 ERRORS AT MOST 

jALLOW |2 ERRORS AT MOST 

jALLOW 15 ERRORS AT MOST 

^INITIALIZE POINTER TO PATRN 

?SET UP CYL ADRES BITS C127) 
?SET Up DRIVE ft BITS 



fADRES THE DRIVE 
yWRITE 1 SECTOR 
|USE THIS PATTERN 
fWRXTE* GO 

?ANY ERROR? 

;5ET ADRES FOR LOOPING ON ERROR 

jGET TKCS* ER, DS, DA 

yERROR OCCURRED ON DOING A WRITE 

SCLEAR THE ERROR 

?ALLOW 12 ERRORS ONLY 



jKEEP COUNT 

;USE PATTERNS IN A CYCLIC FASHION 



; INCREMENT POINTERS TO NEXT PATTERN 

;DONE SURFACE 0? 

J NO 

|Y£S, IF CHANGING HEADS 

?SET UP CORRECT ADDRESS ETC, 



;DONE WITH WRITING SURFACE 1? 
;NU, BRANCH 

|DONE WITH BOTH CYLINDERS - 127 ft 128? 

J YES 

yNO# DO CYLINDER 128 



jGQ BACK 

jCYLINDERS 127 AND 128 HAVE BEEN 



^WRITTEN, NOW DO WRITE CHECK 
?INITIALIZE POINTER TO FIRST PATTERN 
; RETRY COUNT 
jDO CYLINDER 128 FIRST 



jADRES THE DRIVE 



MD-U-D 


ZRKL-E, 


RK11»RK05 DYNAMIC TEST 


MACY11 


30C1046) 
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DZRKLE 9 


Pit 26-APR«77 


12127 




T10 


WRITE, 


WRITE CHECK ON 


CYLINDERS 127, 128 


3479 


















3480 


012446 


012777 


177400 


167004 


WCHIl 


MOV 


#*»40Q,gRKWC 


?WRITE CHECK 1 SECTOR 


3491 


012454 


010177 


167002 






MOV 


R1,*PKBA 


;WITH THIS PATTERN 


3482 


012460 


012777 


004007 


166770 




MOV 


#4007,§>RKCS 


;WRITE CHECK, GO 


3483 


012466 


104421 








CON e RDY 






3484 


















34B5 


012470 


032777 


040000 


166754 




BIT 


#40OOO*@RKDS 


;HE? 


3486 


012476 


001406 








BEQ 


1$ 


?N0 


3487 


012500 


004737 


016214 






JSR 


PCiGETINF 




348R 


012504 


104026 








ERROR 


26 


j HE ON DOING WRT CHK 


3489 


0.12506 


005237 


001506 






INC 


ERCNT2 


jALLOW 12 ERRORS ONLY 


3490 


012512 


001507 








BEQ 


EXT10 


fIF MORE, EXIT 


3491 


012514 


032777 


000001 


166732 


111 


BIT 


#BlTO f ?FKER 


fWCE? 


3492 


012522 


001425 








BEQ 


4S 


?N0 


3493 


012524 


012737 


012442 


001110 




MOV 


8WCERB,$LPERR 


fSET ADRES FOR LOOPING ON ERROR 


3494 


012532 


004737 


016214 






JSR 


PCGETItfF 


?GET INFO ON ERROR 


3495 


012536 


013737 


001252 


001202 




MOV 


RETRYUSREG10 




3496 


012544 


062737 


000004 


001202 




ADD 


#4,gREGlO 


?WCE ON DOING WRITE CHECK* WITH 


3497 


012552 


104027 








ERROR 


27 


?PATTERN STORED IN RJ 


3498 


012554 


005237 


001252 






INC 


RETRY1 


?D0 3 TIMES IN ALL 


3499 


012560 


001330 








BNE 


WCERR 




3500 


012562 


005237 


001510 






INC 


ERCNT3 


jALLOW IS ERRORS ONLY 


35 01 


012566 


001461 








BEQ 


EXT10 


j IF MORE, EXIT 


3502 


012570 


012737 


177775 


001252 




MOV 


»-3#RETRYl 




3503 


















3504 


012576 


005200 






4 S 3 


INC 


RO 


J KEEP TRACK OF DXSK^ADRES 


3505 


012600 


005203 








INC 


R3 


fAND COUNT 


3506 


012602 


022701 


0127 3'0 






CMP 


8SP12#RS 


fUSE PATTERNS IN CYCLIC 


3507 


012606 


001002 








BNE 


3$ 




3508 


012610 


012701 


012700 






MOV 


#SP!-2*Ri 


?FASHION 


3509 


012614 


005721 






3S8 


TST 


CR13* 


j INCREMENT POINTER TO NEXT PATTERN 


3510 


012616 


020327 


000014 






CMP 


R3,#14 


jDONE SURFACE 0? 


351 1 


012622 


002711 








BLT 


WCHI 


;N0 


3512 


012624 


001005 








BNE 


2S 




3513 


012626 


010201 








MOV 


R2»Fi 


;IF CHANGING HEADS (0-i), SET CORR 


3514 


012630 


042700 


000017 






BIC 


•i7»R0 


fADRES BITS 


3515 


012634 


052700 


000020 






BIS 


#20*R0 




3516 


















3517 


012640 


020327 


000030 




211 


CMP 


R3,#30 


jDONE WRITE CHECKING SURFACE 1? 


3518 


012644 


001300 








BNE 


WCHI 


|N0, GO BACK 


3519 


















3520 


012646 


032700 


007700 




MCLOl 


BIT 


#77Q0#R0 


fDONE BOTH CYLINDERS • 127* 128? 


3521 


012652 


001005 








BNE 


REPEAT 


;YES, BRANCH 


3522 


012654 


012700 


007740 






MOV 


#7740, RO 


?DQ CYLINDER 127 NOW 


3523 


012660 


053700 


001230 






BIS 


DRIVAD,RO 




3524 


012664 


000665 








BR 


WCHIl 




3525 


















3526 


















3527 


012666 


005722 






REPEAT! 


TST 


(R2) + 


? RELOCATE THE PATTERNS ON THE 


3528 


012670 


020227 


012732 






CMP 


R2'»»5P12 + 2 


jCYLINDERS AND DO IT AGAIN 


3529 


012674 


001420 








BEQ 


TSTU 


MEXIT 


3530 


012676 


000137 


012224 






JMP 


DOfeIRT 


fTHIS TEXT) 


3531 


















3532 


















3533 


















3534 










t PATTERNS TO BE 


USED 





MD-ll-DZR&L^E, RKll'-RKOi DYNAMIC TEST 
DZRKLE 8 P11 26«»APR«»77 12127 
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TiO WRITE, WRITE CHECK ON CYLINDERS 127, 128 



3535 








3536 


012702 


177777 




3537 


012704 


052525 




3538 


012706 


HUH 




3539 


012710 


010421 




3540 


012712 


102041 




3541 


012714 


010101 




3542 


012716 


040201 




3543 


012720 


000401 




3544 


012722 


031463 




3545 


012724 


070707 




3546 


012726 


007417 




3547 


012730 


041020 




3S48 








3549 


0127 32 


004737 


016772 


3550 








3551 








3552 








3553 








3554 








3555 








3556 








3557 








3558 








3559 








3560 








3561 








3562 








3563 








3564 








3565 








3566 








3567 


012736 


000004 




3568 


O12740 


032777 


000100 


3569 


012746 


001002 




3570 


012750 


000137 


014106 


3571 


012754 


104415 




3572 


012756 


104416 




3573 








3574 


012760 


012737 


177771 


3575 








3576 








3577 


012766 


104401 


012774 


3578 


012772 


000424 




3579 








3590 


013Q44 






3581 


013044 


104401 


013052 


3582 


013050 


000421 




3583 








3584 


013114 






3585 


013114 


104401 


013122 


3586 


013120 


000421 




3587 








3588 


013164 






3589 








3590 


013|64 


012737 


001542 



166172 



SPli 


g WORD 


177777 


SP2I 


,WORD 


0S2525 


SP3I 


e WORD 


HUH 


SP4I 


, WORD 


010421 


SPSf 


8 W0RD 


102041 


SPSl 


9 WORD 


010101 


SP7 8 


9 W0RD 


040201 


SPSS 


a WQRD 


000401 


SP91 


9 W0RD 


031463 


SP10I 


s WORD 


070707 


5PI1I 


8 WQRD 


007417 


5P12I 


9 W0RD 


041020 


EXTlQl 


JSR 


PCABRT 



fIF YOU WANT TO WRITE ANY 

j OTHER PATTERNS, CHANGE THESE 

;12 LOCATIONS TO ANY PATTERN 

?YOU WANT, 



SEEK FUNCTION TIMER 



#&##•»####«■#»## 



j»TEST 11 

j®SEEK TIMER 

j®IN THIS PART OF THE PROGRAM SEEKS ARE TIMED BETWEEN A PARTICULAR SET 

? *0F CYLINDERS, BOTH IN THE FQRWRAD DIRECTION (0-312) AND REVERSE(312»Q) , 

f*»**#**CAUTION#**### 

p*lT SHOULD BE NOTED THAT THE SECTOR COUNTER (IN RKDS) IS USED AS THE REAL 

}*TIME CLOCK TO DO THE SEEK TIMING e FOR THE TIMES TO BE RELIABLE, THE 

?#SECTOR COUNTER SHOULD BE ACCURATE WITHIN THE SPECIFICATIONS OF THE DISK 

jttSPEEDi 1500 RPM s 40 MILI SEC'S/REV s3 s 33 MILI SECS/SECTOR 8 

f#VARIATION| *»30 RPM 



TST118 



SCOPE 

BIT #SW6,#SWR 

BNE 9 *6 
JMP PLTGRPH 
CON 9 RESET 
DPV e RESET 



J I&5SI 

64SI 



M67SI 
66SI 



JI69SI 
68$$ 



MOV 



TYPE 

BP 

*ASCIZ 



TYPE 

BR 

B ASCIZ 



TYPE 
BR 



#«°7,RETRY1 



,658 
648 



;INHIBIT TIMER? 



JCOUNT FOR 7 DIFRNT SEEK TIMES 
jTO BE RECORDED 



fjIYPE ASCIZ STRING 
jjGET OVER THE ASCIZ 



«15><12»/SEEK TIME SCALE FACTORsO.,01 MILI SECS/ 



,67S fjTYPE ASCIZ STRING 

66$ ?fGET OVER THE ASCIZ 

<15>«12»<12>/ ft OF SEEK # OF 



SEEK/ 



,69$ 

68H 



; I TYPE ASCIZ STRING 
??GET OVER THE ASCIZ 
TIME SEEKS 



8 ASCIZ <15><12>/ SEEKS TIME SEEKS TIME/<15»<12» 
MOV #SIAD,INADR flMITLZE PIR .TO INNER ADRES 



MD-»lt«DZRKL = E, RKH-RKOS DYNAMIC TEST 
DZRKLE^PH 26-APR-77 12327 
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Til SEEK FUNCTION TIMER 



3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
36 2 5 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 



013172 

013200 

013206 
013214 
013222 
013224 

013226 
013232 
013236 
013242 



013230 
013254 
013260 

013262 
013266 
013272 

013274 
013300 
013304 



013310 
013314 
013316 
013320 
013324 

013326 

013330 

013334 

013340 



012737 001524 001262 MOV 

017777 1660S6 166256 REPTIMi MOV 



#SOAD,OUTADR 



fINITLZE PTR TO OUTER ADRES 



053777 
012777 
104421 
104422 

005037 
012704 
012705 
012737 



013702 
O0S737 

001005 

Q17712 
053712 
000404 

017712 
053712 
004737 



005737 
001004 
010324 
OOS237 
000751 

010325 

005037 

005237 
001343 



001230 166250 
000011 166234 



001474 
027026 
027426 
177634 001476 



001464 

001474 



165772 
001230 



165762 
001230 
014776 



001474 

001474 



001474 
001476 



2SS 



gQUTADR,§RKDA ^POSITION HEADS TO OUTER CYLINDER 



BIS DPIVAD,§RKDA 
MOV #11»9RKCS 

CQN a RDY 

TST S RWS 



CLR 
MOV 
MOV 
MOV 



BEGSKl MOV 
TST 
BNE 



MOV 
BIS 

BR 

MOV 
BIS 
JSR 



TST 
8NE 
MOV 

INC 

BR 

MOV 
CLR 

INC 

BNE 



INDX1 

#BUFR10,R4 
#BUFRil#R5 
#»144,INDX2 



RKDA,R2 

INDX1 

IS 

@INADR,@R2 
DRIVAD,?R2 
38 

§0UTADR,@R2 
DRIVAD,$R2 

PCMTXMSEK 



INDXi 

3$ 

R3#(R4)+ 

INDXI 

BEGSK 

R3,CR5}4- 
INDXI 



INDX2 
BEGSK 



?BEFORE STARTING TO TIME 
;SET DRIVE ff BITS 
fSEEK, GO 
?WAIT FOR CNTRL RDY 
jWAIT FOR R/W/S RDY 

;INDX1 a 0, GOING IN| OTHERWISE OUT 
fSTORE FWRD SEEK TIMES IN THIS BUFR 
fSTORE REVRSE » M 
fSET COUNT FOR # OF SEEKS 



fGOING FWRD OR REVRSE? 
fREVRSE, BRANCH 



jFWRD, SET INNER CYL ADRES 
f SET DRIVE # BITS 



fSET OUTER CYL ADRES 

fSET DRIVE 8 BITS 

?GO,~TIME THE SEEK FROM CYLINDER 

jO TO THE ABOVE CYL„ RETURN WITH 

}R3 CONTAINING THE TIME (MS, SCALE 

jFACTORs a 0i) REQUIRED FOR THE SEEK 8 



fSTORE TIME TAKEN FOR FRWRD SEEK 
*5ET FLAG FOR DOING REVRSE SEEK 

?G0 DO IT 

? STORE TIME TAKEN FOR REVRSE SEEK 
fCLR FLG FOR DOING FRWRD SEEK 

fRECORDED 144 SEEK TIMES 
jIF NOT, GO BAK 



5 AT THIS POINT 100 SEEKS HAVE BEEK PERFORMED BETWEEN TWO 

^CYLINDERS (FORWARD & REVERSE DIRECTION) , FORWARD SEEK 

jTIMES ARE STORED IN TABLE STARTING AT "BUFPIO* REVERSE 

^STARTING AT •BUrRil*. THE FOLLOWING CODE FINDS OUT THE 

yNUMBERS OF TIMES A PARTICULAR "SEEK TIME* WAS OBTAINED^ 

^EXAMPLES OUT OF 100 TIMES THE SEEK WAS DONE BETWEEN 

^CYLINDER & LAST 9 

?70 TIMES IT TOOK 95 MILI SECS 

?20 TIMES IT TOOK 85 MILI SECS 

jlO TIMES IT TOOK 100 MILI SECS 

?THIS INDICATES HOW CONSISTENT WAS THE SEEKING TIME 9 

jNOTE THAT ONLY 5 DIFFERENT "SEEK TIMES* WILL BE TYPED 

fOUT 9 

fSQRTING ROUTINE 



MD«ali«DZRKL«E, RK11*RK0§ DYNAMIC TEST 
OZRKLE.PM 26-APIW7 121.27 
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3647 








3648 


013342 


01270S 


177776 


3649 


013346 


012737 


027026 001162 


3650 


013354 


012737 


027030 001164 


3651 


013362 


012737 


026326 00116S 


3652 


013370 


012737 


026606 001170 


36S3 








3654 


013376 


013700 


001162 


3655 


013402 


013701 


001164 


365b 


013406 


012702 


I7763S 


3657 


013412 


005003 




3658 








3659 


013414 


021011 




3660 


013416 


003404 




3661 


013420 


011004 




3662 


013422 


011110 




3663 


013424 


010411 




3664 


013426 


005203 




3665 


013430 


005720 




3666 


013432 


005721 




3667 


013434 


005202 




3668 


013436 


001366 




36fe9 


013440 


005703 




3670 


013442 


001355 




3671 








3672 


013444 


013700 


001162 


36 7 3 


0.13450 


013701 


001166 


3674 


013454 


013702 


001170 


3675 


013460 


010204 




3676 


013462 


005024 




3677 


013 464 


005024 




3678 


013466 


005024 




3679 


013470 


005024 




3680 


013472 


00S024 




36*31 


013 474 


012703 


177773 


3682 








3683 


013500 


011011 




3684 


013502 


012703 


177634 


3&R5 


013506 


022011 




3686 


013510 


001411 




3687 








3688 


013512 


005721 




3689 


013514 


016011 


177776 


3690 


013520 


005722 




3691 


013522 


012712 


000001 


3692 


013526 


005203 




3693 


013 5 30 


001404 




3694 


013532 


000765 




3695 








3696 


013534 


005212 




3697 


013536 


005203 




3698 


013540 


001362 




3b99 








3 7 00 


013542 


005205 




3701 


013544 


001415 




3702 









MOV 
MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
CLR 

CMP 
BLE 
MOV 
MOV 
MOV 
INC 
TST 
TST 
INC 
BNE 
TST 
BNE 

MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
MOV 

MOV 
MOV 
CMP 
BEQ 

TST 
MOV 
TST 
MOV 

INC 

BEQ 
BR 

INC 

INC 
BNE 

INC 
BEQ 



#-2»RS 
#BUFR10»$REG0 

#Bunuo*a#tFiEGi 

#BUFR4,$REG2 
#BUFR§,$REG3 

$REGO,RO 
SREGliM 
#«»i43,R2 
R3 

(R0)#(R1) 
3$ 

CR0)#R4 
CRi)#(BO) 

R4,£R13 

R3 

CRO)* 

CP13* 

R2 

2% 

R3 

1$ 

§REGO*RO 

8REG2,R1 

SREG3*R2 

R2,R4 

(R43* 

CR4H 

CR43 + 

CR43 + 

CR43 + 

#-5,R3 

(R0),(R1) 

8-®l44,R3 

CR0)+#(R1) 

5$ 

CR13* 

«2<R03,(R13 
(R2) + 
#1,CR2) 
R3 

6fi 
4$ 

CR2) 

R3 

4S 

R5 

GOTYPE 



?CQUNT FOR FRWRD, REVRSE 
jINTLZE PTR TO "SEEK TIME* 



jINTLZE PTR TO '§ OF TIMES* 

jPTR T *SEEK TIME* 

fCOUNT FOR 143 ITEMS TO SORT 



j SORT THE ITEMS & PUT THEM 
I IN DESCENDING ORDER 
;LARGER ITEMS AT TOP OF LIST, 
I SMALLER AT THE BOTTOM 



jSORTED ALL ITEMS? 
»IF NOT LOOP BACK 

?PTR TO *SEEK TIME* 
jSAVE 'SEEK TIME* HERE 
jSAVE '# OF TIMES* HERE 

?CLR OUT 5 WORDS OF 
»•# OF TIMES^BUFR 



jSAVE ONLY 5 DIFRNT 'SEEK TIMES* 



jFIND OUT THE 'I OF TIMES* 
fEACH "SEEK TIME' WAS 



jSAVE 'SEEK TIME* 
jKEEP *® OF TIMES' 



jINCRMNT '# OF TIMES 9 

?ALL DONE? 

jIF NOT, GO BAK 

;SORTED BOTH FRWRD, REVRSE 
-,'SEEK TIMES*, IF YES GO TYPE 



MD»lt»DZRKL»E, RK11-RK05 DYNAMIC TEST 
DZRKLE.P11 26«APR«=77 12827 
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3703 


013546 


012737 


027426 001162 


37 04 


013554 


012737 


027430 001164 


3705 


013562 


012737 


026666 001166 


3 7 06 


013570 


012737 


026746 001170 


3707 








3708 


013576 


00 06 7 7 




3709 








37 10 








3711 








3712 


013600 


104401 




3713 


013602 


001213 




3714 


013604 


104401 


013612 


3715 


013610 


000403 




3716 








3717 


013620 






3718 








3719 


013620 


017700 


165436 


3720 


013624 


006200 




37 21 


01 3626 


006200 




3722 


013630 


006200 




3723 


01 3632 


006200 




3724 


013634 


006200 




3725 


013636 


010046 




3726 


013640 


104424 




3727 


013642 


104401 


013650 


3728 


013646 


000401 




3729 








3730 


013652 






3731 


013652 


017701 


165402 


3732 


013656 


006201 




3733 


013660 


006201 




3734 


013662 


006201 




3735 


01 3664 


006201 




3736 


013666 


006201 




3737 


013670 


010146 




3738 


013672 


104424 




3739 


013674 


104401 


013702 


3740 


013700 


000405 




3741 








3742 


013714 






3743 


013714 


104401 


002101 


3744 


013720 


104401 


013726 


3745 


013724 


000404 




3746 








3747 


013736 






3748 








3749 








1750 








3751 








3752 


013736 


005000 




3753 


013740 


005005 




3754 


013742 


104401 




3755 


013744 


001213 




3756 


013746 


016046 


026606 


3757 


013752 


001424 




3758 


013754 


104405 





MOV 
MOV 
MOV 
MOV 

BR 



#BUFRil#$REGO fIF NOT* INITLZE PTR TO "SEEK TIME* 

#BUFR11+2,$REG1 

#BUFR6,$REG2 jSAVE 'SEEK TIME* 

#BUFR7,$REG3 jSAVE *# OF TIMES* HERE 



IS 



GOTYPES 


TYPE 
SCRLF 






TYPE 


,65$ 




BR 


64$ 


1*6588 


e ASCIZ 


/CYLSl/ 


64$; 








MOV 


§OUTADR,RO 




ASH 


RO 




ASP 


RO 




ASR 


RO 




ASR 


RO 




ASR 


RO 




MOV 


RO,»(SP) 




TYPDSS 






TYPE 


#67* 




BR 


66$ 


jf67$i 


S ASCXZ 


/-/ 


66S8 








MOV 


§INADR*Ri 




ASR 


Ri 




ASR 


Rl 




ASR 


Rl 




ASR 


Rl 




ASR 


Rl 




MOV 


R1,-(5P) 




TYPDSS 






TYPE 


,698 




BR 


68| 


} J69SS 


8 ASCIZ 


«lSXi2>/ 


68$8 








TYPE 


,BLNKS9 




TYPE 


#71S 




BR 


70S 


l»7i$l 


e ASCIZ 


/REVRSE/ 


70SS 







»G0 BAK & DO SORTING FOR REVRSE SEEK TIMES 



jTYPE OUT CKL #"S BETWEEN WHICH SEEK 

JWAS TIMED a 'OUTADR* TO ^INADR" *INADR* TO ®OUTADR ff 



MTYPE ASCIZ STRING 
;|GET OVER THE ASCIZ 



jGET OUTER CYL 9 



TYPTIMf 


CLR 


RO 




CLR 


R5 


1SS 


TYPE 
*CRLF 






MOV 


BUFRSCR03 




BEQ 


3S 




TYPDS 





fTYPE IT OUT IN DECIMAL 
?pTYPE ASCIZ STRING 
II GET OVER THE ASCIZ 



jGET INNER CYL 9 



fTYPE IT OUT IN DECIMAL 
HTYPE ASCIZ STRING 
?jGET OVER THE ASCIZ 



jjTYPE ASCIZ STRING 
IfGET OVER THE ASCIZ 



jTYPE OUT THE *f? OF SEEKS* & *SEEK 
jTIME* OBTAINED FOR EACH OF THOSE 
S SEEKS 



«{SP) ?GET *# OF SEEKS', IF NONE CQ3 
fSKIP TYPING (FRWRD SEEK) 
fQO TYPE OUT DECIMAL H OF SEEKS* 



MD-U-DZRKL..E, RKli-RKOS DYNAMIC TEST 
DZRKLE 9 Pli 26«®APR«77 12|27 



3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
377i 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
379S 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 



013756 
013760 
013762 
013766 



013770 
013774 
013776 
014000 
014002 
014006 
014010 
014012 
014014 
014020 
014022 

014024 
014026 
014030 

014032 
014034 
014036 

014040 
014042 
014Q46 

014050 
014056 
014064 

014Q70 
014Q72 

014100 
014102 



104401 

002110 

016046 026526 

104405 



016046 026746 

001416 

005705 

001402 

104401 002075 

104405 

104401 

002110 

016046 026666 

104405 

000406 



005726 
00S205 
000757 

005726 
005705 
001004 

005720 
020027 
001335 

062737 
062737 
005237 
001406 
032777 
001402 
000137 
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Til SEEK FUNCTION TIMER 

TYPE 

BLNKS2 

MOV BUFF4(R0)f-(SP) 

TYPDS 



MOV 

BEQ 

TST 

BEQ 

T^PE 

TYPDS 

T¥PE 

BLNKS2 

MOV 

TYPDS 

BR 

TST 
INC 
BR 

TST 
TST 
BNE 

TST 

CMP 
BNE ' 



000002 
000002 
001252 



001260 
001262 



000100 165040 



TIMDONj ADD 
ADD 
INC 
BEQ 
BIT 
BEQ 
JMP 



BUFR7CR03, 

U 

R5 

6S 

,BLNK13 



?GET *SEEK TIME* FOR EACH OF 
jQF THAT *# OF SEEKS*, *G0 
?TYPE OUT IN DECIMAL 

;GET *# OF SEEKS*, IF NONE (03 
jSKIP TYPING (REVRSE SEEK) 



fTYPE OUT IN DECIMAL 



BUFR6CR0),«-(SP) 



(SP) + 
R5 

2% 

CSP)* 
R§ 

TIMDON 

(RO)* 
R0»#12 
U . 

#2,INADR 

#2,0UTADR 

RETRY1 

PLTGRPH 

#SW6,§SWR 

PLTGRPH 

REPTIM 



?G£T 'SEEK TIME* & TYPE IT 
fOUT IN DECIMAL 



?POP STACK 



1 INCREMENT PTR TO TABLES 

Ikhb DONE? 

j IF NOT GO BAK 

glNCRMNT POINTER TO NEXT 
| INNER & OUTER ADRES 
?ALL DONE? 

fINHIBIT TIMER? FURTHER ? 
jYES, BRANCH 
|G0, BACK AND TIME REST 
j OF SEEKS 



jPLOT GRAPH OF *SEEK TIME' V/S "CYLIDERS SEEKED' 

jPERFORM SEEK FROM CYLINDER TO EVERY OTHER CYLINDER AND TIME IT, 
JO 0,0 1,— -0 312 e NOTE ^SECTOR COUNTER* IS USED AS A READ 
jTIME CLOCK TO TIME THERE SEEKS, AFTER OBTAINING THE SEEK TIMES A 



3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 



fGRAPH IS PLOTTED OF "SEEK TIME* V/S 'CYLINDER* 



034106 
014114 
014116 
014122 
034124 
014126 
014134 



032777 
001002 
000137 
104415 
104416 
012737 
012704 



000040 165024 



177465 
027026 



I TIME THE SEEKS 
PLTGRPHs BIT #SW5,§»SWR 
BNE e*6 
JMP TST12 
CQN ffl RESET 
DRV e RESET 

MOV #»313,INDX3 
MOV #BUFR10,R4 



jSKIP THE GRAPH? 
j¥ES, BRANCH 



fPERFORM 313 SEEKS 0-0, 0-1 t 0*»312 
,"STORE 'SEEK TIME 9 HERE 
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3815 


014140 


005037 


001260 


3816 








3817 


014144 


013777 


001260 165312 


3818 


014S52 


053777 


001230 165304 


3819 








3820 


014160 


004737 


014776 


3621 








3822 








3823 








3824 


014164 


010324 




3825 


014166 


042777 


017777 165270 


3826 


014174 


012777 


000011 SS5254 


3827 


014202 


104421 




382? 


014204 


104422 




3829 


014206 


062737 


000040 001260 


3830 


014214 


005237 


001500 


3831 


014220 


0013S1 




3832 








3833 








3834 








38.35 


014222 






3836 


014222 


104401 


014230 


3837 


014226 


000422 




3838 








3839 


0142-74 






3840 


014274 


104401 


014302 


3841 


014300 


000423 




3842 








3843 


014350 






38 44 








3845 


014350 


104401 




3846 


014352 


002103 




3847 


014354 


005000 




3848 


014356 


010046 




3849 


014360 


104424 




38S0 


014362 


005700 




3851 


014364 


001411 




3852 


014366 


022700 


000144 


3853 


014372 


003010 




3854 


014374 


022700 


000170 


3933 


014400 


002412 




3856 


014402 


104401 




3857 


014404 


002110 




38 58 


014406 


000404 




3859 


014410 


104401 




3860 


014412 


002111 




3861 


014414 


104401 




3862 


014416 


002107 




3863 


014420 


062700 


0000I2 


38S4 


014424 


0007S4 




3865 








3S6S 


014426 


104401 




3867 


014430 


001213 




3868 


014432 


104401 




3869 


014434 


002103 




3870 









MACYU 


30(4046) 


i4«*JUL«'77 


Til 


SEEK 


: FUNCTION TIMER 




CLR 




INADR 


l«l 


MOV 




INADR # §RKDA 




BIS 




DRXVAD*@RKDA 




JSR 




PCTIMSEK 




MOV 




R3,CR4)4- 




BIC 




#17777, fRKDA 




MOV 




«Uf9RKC5 




C0N 9 


RDY 






TST 9 


RWS 






ADD 




#40, INADR 




INC 




INDX3 




BNE 




1$ 
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jCLR CYL ADRES BITS 

jADRES THE RIGHT CYLINDER 
jADRES THE RIGHT DRIVE 

?G0 TIME THE SEEK FROM CYL 
fTO THE ABOVE CYL, RETURN WITH 
?R3 CONTAINING *SEEK TIME* IN MS 
1SCALE FACTOR OF Q 9 01 
fSTORE "SEEK TIME* 

pSEEK BACK TO CYL FOR 
jTIMING NXT CYL SEEK 
fWAIT FOR CNTRL RDY? 
jWAIT FOR R/W/S RDY 
jFQRM NXT CYL ADRES 



?PLOT A GRAPH USING 'SEEK TIMES" RECORDED BEFORE 



TYPE ? 658 j i TYPE ASCIZ STRING 

BR 64S »|GET OVER THE ASCIZ 



1 I TYPE ASCIZ STRING 
IfGET OVER THE ASCIZ 
<19><12>/Y AXIS • CYLINDER SEEKED FROM 0/<15><i2><12> 



!!6StX 


e ASCIZ 


<15><12> 


64$| 








TYPE 


#67S 




BR 


66| 


Il67tl 


" .ASCIZ 


<13><12> 


66$1 


TYPE 
BLNKS7 






CLR 


RO 


lis 


MOV 

TYPDSS 


R0,-CSP5 




TST 


RO 




BEQ 


2$ 




CMP 


#144,R0 




BGT 


U 




CMP 


#170,R0 




BLT 


5«' 




TYPE 


t 




BL?J&S2 






BR 


3$ 


211 


TYPE 
BLMKS1 




411 


TYPE 
BLNKS3 




3*1 


ADD 


«12«R0 




BR 


11 


S*i 


TYPE 

ICRLF 





?TYPE OUT THE TIME UNITS 
j(MILI SEC53 FOR THE X«AXIS 
iLIKE THISl 
|0 20 30 40 6SB9e 
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3871 


014436 


012700 


177763 


3872 


014442 






3873 


014442 


104401 


014450 


3874 


014446 


000403 




3875 








3876 


014456 






3877 


014456 


005200 




3878 


014460 


001370 




3879 








3880 








3981 








3882 


014462 


032777 


000020 


3883 


014470 


001054 




3884 








3885 








3886 








3987 








3PR8 


034472 


U05000 




3»89 


014474 


032777 


000040 


3890 


014502 


001445 




3891 


014504 


104401 




3892 


014506 


0012S3 




3893 








3894 








3895 








3896 


014510 


010046 




3897 


014512 


104405 




3898 


014514 


104401 


014522 


3S99 


014520 


000401 




1900 








3901 


014524 






3902 


014524 


010001 




3903 


014526 


006301 




3904 


014530 


016103 


027026 


3905 


014534 


004737 


014736 


3906 


014540 


022700 


000004 


3907 


01 4544 


003402 




3908 


U14546 


005200 




3909 


014550 


000751 




3910 


014552 


022700 


000024 


3911 


014556 


003403 




3912 


01456 


062700 


000002 


3913 


014564 


000743 




3914 


014566 


022700 


000310 


3915 


014572 


003403 




3916 


014574 


062700 


000005 



3917 014600 000735 

3918 014602 022700 000312 

3919 014606 OQ1403 



1920 
3921 
3922 
3923 
3924 
3925 
3° 26 



014610 062700 000002 

014614 000727 

014616 000137 015224 



PLTli 


MOV 


#«»15,R0 


181 








TYPE 


;65S 




BR 


64$ 


S J630 S 


,ASCIZ 


/Immwm/ 


643! 








INC 


RO 




BNE 


IS 


jIF SW 


4 IS SET 


THEN TYPE 




BIT 


«SW4 y gShfa 




BNE 


CMPGRP 



?TYPE OUT THE X-AXIS MARKERS 



ffTYPE ASCIZ STRING 
;|GET OVER -THE ASCIZ 



SMGRP8 


CLR 


RO 


181 


BIT 


#SW5,PSWR 




BEQ 


58 




TYPE 






SCRLF 


1 





MOV 


RO,-(SP) 




TYPDS 






TYPE 


,65$ 




BR 


64S 


M65$! 


9 ASCIZ 


/-/ 


641! 








MOV 


R0,R1 




ASL 


Rl 




MOV 


BUFR10(R1),R3 




JSR 


PC,PLTPT 




CMP 


94, RO 




BLE 


2S 




INC 


RO 




BR 


1$ 


2$8 


CMP 


824, RO jPLOT 




BLE 


3$ 




ADD 


#2,R0 




BP 


1$ 


3SS 


CMP 


#310, RO 




BLE 


4$ 




ADD 


1*5, RO 




BR 


IS 


4S: 


CMP 


($312, RO 




BEQ 


5S 




ADD 


#2,P0 




BR 


1$ 


5$s 


JMP 


TST12 



f X ''•"• ■'*" w v ' I w ' fi "' M 1, v * m ** w 



?TYPE COMPLETE GRAPH? 

jYES BRANCH 

? IF NOT, TYPE SMALL GRAPH 



jSKIP REST OF GRAPH? 

J YES 

jIN THIS GRAPH SEEK TIMES ARE 
^PLOTTED ONLY FOR SELECTED 
^CYLINDERS (NOT ALL) SHOWN BELOWj 
J 0,1,2,3,4, 6, 8, 10,12,14,16, 18, 20, 
|25, 30, 35, 99g , 190*195, 200, 203 

,'TYPE THE MARKERS 

I, 'TYPE ASCIZ STRING 
i ?GET OVER THE ASCIZ 



jFOPM THE ADRES OF 'SEEK TIME* 

jGET THE SEEK TIME 

?G0 PLOT IT 
,'PLOTTED UPTO CYL 4? 
jYES 



JPLOTTED UPTO CYL 20? 



fPLOTTED UPTO CYL 200? 



f PLOTTED ALL CYLS7 



? IF SW 4 IS SET THE COMPLETE GRAPH IS PRINTED OUT, IT GIVES TIMES FOR 
jSEEKS FROM CYLINDER TO ALL OTHER CYLINDERS (0, 1 , 2, 3 „ , 9 2025 „ 
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3927 








3928 


14622 


005000 




3929 


014624 


012701 


177773 


3930 


014630 


012702 


027026 


3931 


014 634 


104401 




3932 


014636 


001213 




3933 


014640 


000412 




3934 








3935 


014642 


032777 


000040 


3936 


014650 


001002 




3937 


014652 


000137 


015224 


3938 


U14656 


005201 




3939 


014660 


001005 




3940 


014662 


012701 


177773 


3941 


014666 


010046 




3942 


01467 


104405 




3943 


01467 2 


000402 




3944 


014674 


104401 




3945 


014676 


002104 




3946 


014700 






3947 


0147 00 


104401 


014706 


3948 


01 4704 


000401 




3949 








3950 


014710 






3951 








3952 


014710 


012203 




3953 


014712 


004737 


014736 


3954 








3955 








3956 


014716 


104401 




3957 


014720 


001213 




3958 


014722 


005200 




3959 


014724 


022700 


000312 


3960 


014730 


001344 




3961 


014732 


000137 


015224 


3962 








3963 








3964 








3965 








3966 








3967 








3966 








3969 








3970 








3971 








3972 








3973 








3974 








3975 


014736 


162703 


000310 


3976 


014742 


002403 




3977 








3978 


014744 


104401 




3979 


014746 


002111 




3980 


014750 


000772 




3981 


014752 


062703 


000144 


3982 


014756 


002402 





CMPGRPi 


CLR 


RO 




MOV 


#»5,R1 




MOV 


#BUFR10#R2 




TYPE 






SCRLF 






BP 


3S 


2$l 


BIT 


#SW5,§SWR 




BNE 


9 *6 




JMP 


TST12 




INC 


Rl 




BNE 


4$ 




MOV 


»-5»Rl 


351 


MOV 
TYPDS 


R0,-(SP3 




BR 


5S 


43 3 


TYPE 
BLNKS6 




SSI 








TYPE 


#65$ 




BR 


64S 


JI65S! 


8 ASCIZ 


/-/ 


64$i 








MOV 


(R2)+#R3 




JSR 


PCPLTPT 




TYPE 






SCRLF 






INC 


RO 




CMP 


#312, RO 




BNE 


2$ 


6$i 


JMP 


TST12 



fINITLZE COUNT 

;INITLZE COUNT FOR Y-AXIS MARKER 

fINITLZE PTR TO SEEK TIMES 



JSKIP REST OF GRAPH? 

CYL *' 



,'TYPE OUT Y«AXIS MARKER 
?IF REQUIRED 



fTYPE 'CYL 8* ON Y-AXIS 
»(IN DECIMAL) 



jjTYPE ASCIZ STRING 
;|GET OVER THE ASCIZ 



|GET SEEK TIME 
;G0 PLOT THE POINT 



I ALL DONE? 

I IF NOT, GO BAK 



fPLTPT 

fTHE ROUTINE IS ENTERED WITH R3 CONTAINING HORIZONTAL AXIS 

jCOORDINATE*» SEEK TIME 

jPLOT THE ACTUAL TIME ON THE GRAPH, IN KEEPING WITH NORMAL 

fCONVENTION A NUMBER LESS THAN HALF THE CELL WIDTH IS 

fCONSIDERED AS FALLING UNDER THE PREVIOUS CELL, A NUMBER 

jGREATER THAN OR EQUAL TO HALF THE CELL WIDTH FALLS UNDER THE NEXT CELL 

|EX| IF SEEK TIME IS 11,5 MS, IT'S BETW'N 10 S, 12, BUT > 11 

jHENCE IT WILL BE PLOTTED AS 12 IF SEEK TIME IS i0 8 8 MS, 

jIT ff S BETW*N 10 & 12, BUT < 11 HENCE IT WILL BE PLOTTED 

?AS 10 9 MS 



PLTPTf 



SUB 

BLT 



#310, R3 
7$ 



TYPE 

BLNKS1 

BR PLTPT 

ADD #144, R3 

BLT 8S 



fFIND OUT HOW MANY BLANKS TO 
? INSERT TO PLOT THE POINT 
JNOTE THE FIRST CELL s® MS 
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3983 


014760 


104401 




3984 


014762 


002111 




3905 








3986 


014764 






3987 


014764 


104401 


014771 


3988 


014770 


000401 




3989 








3990 


014774 






399! 


014774 


000207 




3992 








3993 








3994 








399S 








3996 








3997 








3999 








3999 








4000 








4001 








4002 








4003 


014776 


010246 




4004 


015000 


005003 




4005 


015002 


G13T01 


001452 


4006 


015006 


011102 




4007 


015010 


032702 


000400 


4008 


015 014 


001774 




4009 








4010 


015016 


032702 


000010 


4011 


015022 


001771 




4012 








4013 








4014 


015024 


011102 




4015 


015026 


032702 


000400 


4016 


015032 


001774 




4017 


015034 


021102 




4018 


15036 


001372 




401.9 


015040 


032702 


000017 


4020 


015044 


O01367 




4021 








4022 








4023 


015046 


012777 


OOOOii 164402 


4024 








4025 


O15054 


104421 




4026 








4027 


OS 505 6 


011102 




4028 


015060 


032702 


000400 


4029 


015064 


001774 




4030 


015066 


020211 




4031 


015070 


001372 




4032 


015072 


032702 


000100 


4033 


015076 


001025 




4034 


015100 


032702 


000017 


4035 


015104 


001764 




4036 








4037 


015106 


011102 




4038 


015110 


032702 


000400 





TYPE 






BLNKSi 




Ul 








TYPE 


,6§$ 




BR 


64$ 


JI65S! 


S ASCIZ 


/X/ 


64Sf 








RTS 


PC 



nTYPE ASCIZ STRING 

hget over the ASCIZ 



fTIMSEK 

fTHXS ROUTINE FINDS OUT THE TIME REQUIRED TO SEEK TO THE CYLINDER 

jINDICATED IN RKDA e 

|###CAUTXON### SECTOR COUNTER IS USED AS A REAL TIME CLOCK TO KEEP TIME e 

jENTRYs JSR PCfTXMSEK 

I RKDA CONTAINS THE CYLINDER TO BE SEEKED FROM THE PRESENT POSITION, 

jRETURNi R3 CONTAINS THE SEEK TIME IN MILI SECS 9 SCALE FACTOR ■ 8 0I , 



TIMSEK8 


MOV 


R2,«-£SP3 




CLR 


R3 




MOV 


RKDS,R! 


191 


MOV 


0R1»R2 




BIT 


#400, R2 




BEQ 


1$ 




BIT 


#BIT3,R2 




BEQ 


i$ 


283 


MOV 


9R1,R2 




BIT 


#400, R2 




BEQ 


28 




CMP 


#Ri»R2 




BNE 


2S 




BIT 


#17, R2 




BNE 


2$ 




MOV 


#li,8RKC 




CON 8 RDY 




361 


MOV 


@R1,P2 




BIT 


#400, R2 




BEQ 


38 




CMP 


R2,?Rl 




BNE 


3S 




BIT 


#100, R2 




BNE 


SKDQN 




BIT 


#17, R2 




BEQ 


3$ 


4$f 


MOV 


?R1,R2 




BIT 


8400, R2 



jR3 WILL COUNT REVOLUTIONS OF 

?DISK (FROM INDEX MARK TO INDEX MARK) 

140 MILI SECS FOR EACH REV 



|WAIT FOR SOK 



fWAIT FOR SECTOR 10 SO THAT 
?U CAN START WAITING FOR 
jINDEX, SEC 



jWAIT FOR SEC OK 



jWAIT FOH SEC 0, INDEX MARK 
;AS SOON AS IT IS SEC 0, ISSUE 
jA SEEK & START TIMING 

;ISSUE A SEEK, START TIMING 
;THE SEC COUNTER 
jWAIT FOR CNTRL RDY 

jGET RKDS 
jWAIT FOR SOK 



jINFO CORRECT? 

? NO 

fR/W/S RDY SET? 

;IF YES, BRANCH 

jWAIT FOR SEC CNTR TO MOVE 

fFROM TO 1 



jWAIT FOR SOK 



MD-11-DZRKL-E, RK11-RK05 DYNAMIC TEST 
DZRKLE.PH 26^APR-77 12827 



MACY11 30(10463 14-JUL»77 08803 PAGE 77 
Til SEEK FUNCTION TIMER 



4039 


015114 


001774 




4040 


015116 


020211 




4041 


015120 


001372 




4042 


015122 


032702 


000100 


4043 


015126 


001005 




4044 


01513 


032702 


000017 


4045 


015134 


001364 




4046 








4047 


015136 


005203 




4048 


015140 


000746 




4049 








4050 


015142 


032702 


000017 


4051 


015146 


001001 




4052 


015150 


005203 




4053 








4054 








4055 


015152 






4056 


015152 


012746 


000014 


4057 


015156 


010346 




4058 


015160 


0047*37 


020500 


4059 


015164 


012616 




4060 


015166 


012603 




4061 


01517 


042702 


177760 


4062 


015174 


060203 




4063 








4064 


015176 


012746 


000512 


406S 


015202 


01034S 




4066 


015204 


004737 


020500 


4067 


015210 


012616 




4068 


015212 


012603 




4069 


015214 


062703 


000245 


4070 








4071 








4072 








4073 








4074 








4075 








4076 


015220 


012602 




4077 


01S222 


000207 




4078 








4079 








4080 








4081 








4082 








4083 








4084 








4085 


015224 


000004 




4086 


015226 


10S237 


001223 


4087 


015232 


123737 


001223 


4088 


0-15240 


001402 




4089 


01S242 


000137 


003760 


4090 








4091 








4092 








4093 








4094 









BEQ 


4$ 


CMP 


R2,PRi 


BNE 


4$ 


BIT 


#100iR2 


BNE 


58 


BIT 


#17, R2 


BNE 


4$ 


INC 


R3 


BR 


3$ 


BIT 


#17, R2 


BNE 


SKDQN 


INC 


R3 


MOV 


#14»-(SP) 


MOV 


R3,-CSP3 


JSR 


PC,@«MULT 


MOV 


£SP3+,(SP) 


MOV 


CSP)*,R3 


BIC 


#177760, R2 


ADD 


R2,R3 


MOV 


#512,-CSP3 


MOV 


R3,-CSP) 


JSR 


PC,@#gMULT 


MOV 


CSP)+,CSP3 


MOV 


CSP3*,R3 


ADD 


#245, R3 



MOV 

RTS 



CSPJ* 

PC 



jR/W/S RDY SET, SEEK DONE? 
| YES, BRANCH 

fIF NOT KEEP TRACK OF SEC 
?COUNTER e INCREMENT R3 AT 
?EVERY INDEX MARK, EVERY 
?4p MILI SECS 
?G0 BAK, KEEP TIME 

;CHECK, IS IT INDEX MARK -SEC 

jIF NOT, SKIP 

;IF YES, INCREMENT COUNT 

fSEEK DONE, SAVE RKDS^SEC COUNTER, 

J J PUT THE MULTIPLER ON THE STACK 

JJPUT THE MULTIPLICAND ON THE STACK 
MCALL THE MULTPLY ROUTINE 
it DISREGARD THE MSB'S 

jjGET THE LSB'S OF THE PRODUCT 
jSEEK 8 TOTAL TIMEs(IN DECIMAL) 
; CCR33X12+SEC COUNTER] X330X0 8 01 
1N0TE THERE IS A SCALE FACTOR 

JJPUT THE MULTIPLER ON THE STACK 
" |f PUT THE MULTIPLICAND ON THE" STACK 
IjCALL THE MULTPLY ROUTINE 
I {DISREGARD THE MSB'S 

JjGET THE LSB*S OF THE PRODUCT 
^ASSUMPTION THAT EACH SECTOR 
STAKES 3 e 3 MILI SECS 9 IF THE 
|DISK SPEED IS VERY MUCH DIFRNT 
I FROM THE SPEC SPEED OF 
?1500 RPM £40 MS/REV), THEN 
;SEC COUNTER WOULD NOT BE AN 
^ACCURATE TIME CLOCK 8 
?POP R2 BAK 
i RETURN 



$#TEST 12 ENb OF PROGRAM 

J&THIS IS NOT A TEST BUT IS JUST A LINKAGE 

^PROVIDED TO TEST ALL THE DRIVES 9 
I |####«###-»®###'»«##^#########'»*«#»*##'»#####»#«.#«'##*###«'#«'«#®##«## 
TST125 SCOPE 

INCB DRVDON 
001224 3TE0?{ CMPB DRVDON, DRIVS 

BEQ »*& 

JMP NXTDRV 

8 SBTTL END OF PASS ROUTINE 

I f ###®####^###®#«-##########*»##'»######*######«#«.####*^####^##*### 
|#INCREMENT THE PASS NUMBER (IPASS) 
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4095 








4096 








4097 








4098 








4099 








4100 


015246 






4101 


015246 


000004 




4102 


015250 


005037 


001102 


4103 


015254 


005237 


001100 


4104 


015260 


042737 


100000 


4105 


015266 


005327 




4106 


015270 


000001 




4107 


015272 


003022 




4J08 


015274 


012737 




4109 


015276 


000001 




4 t 10 


015300 


015270 




4111 


O15302 


104401 


015347 


4112 


015306 


013746 


001100 


4113 


015 312 


104405 




4114 


015314 


104401 


015344 


4115 


015320 


013700 


000042 


4116 


015324 


001405 




41 17 


015326 


000005 




411? 


015330 


004710 




4119 


015332 


000240 




4120 


015334 


000240 




4121 


015336 


000240 




4122 


015340 






4123 


015340 


000137 




4124 


015342 


003742 




4 5 25 


015 3 4 4 


377 


377 


4126 


015347 


015 


042412 


4127 


015354 


050040 


051501 


4128 


015362 


000043 




4129 









VINDICATE END«OF®PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
?*TYPE "END PASS #XXXXX" (WHE-RE XXXXX IS A DECIMAL NUMBER) 
I #IF THERES A MONITOR GO TO IT 
F*IF THERE ISN*T JUMP TO ST3 

gEOP? 



000 
042116 





SCOPE 










CLR 


STSTNM 




jlZERO THE TEST NUMBER 




INC 


SPASS 




II INCREMENT THE PASS NUMBER 




BIC 


#100000* 


SPASS 


jlDON^T ALLOW A NEG 8 NUMBER 




DEC 


(PO + 




IfLOOP? 


SEOPCTS 


9 WQRD 


1 








BGT 


SDOAQN 




jjYES 




MOV 


CPC5* ff @CPC)^ 


f j RESTORE COUNTER 


$ENDCT3 


8 WQRD 
gEOPCT 


1 








TYPE 


,gENDMG 




I'jTYPE "END PASS #" 




MOV 


SPASS, »CSP) 


nSAVE SPASS FOR TYPEOUT 




TYPDS 






j?GO TYPE«»DECIMAL ASCII WITH SIGN 




TYPE 


*SENULL 




MTYPE A NULL CHARACTER 


gGET42§ 


MOV 


§#42, RO 




flGET MONITOR ADDRESS 




BEG 


$DOAGN 




llBRANCH IF NO MONITOR 




RESET 






j f CLEAR THE WORLD 


$ENDADl 


JSR 
NOP 

NOP 
NOP 


PC,CR0) 




!?G0 TO MONITOR 
IfSAVE ROOM 

mfor 

;|ACT11 


gDOAGN? 












JMP 


SCPCH 




MRETUPN 


SRTNADs 


8 W0RD 


ST3 






SENULLl 


9 BYTE 


-1,-lfO 




5 j NULL CHARACTER STRING 


SENDMGJ 


.ASCIZ 


<15><12>/END 


PAS5 #/ 
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4130 






4131 






4132 






41 33 






4134 






4135 






4136 






4137 






4138 






4139 






4140 






4141 






4142 






4143 






4144 






4145 






4146 






4147 






4148 






4149 


015364 




4150 


015364 


010146 


4151 


015366 


010246 


4152 


015370 


012701 001266 


4153 


015374 


012702 001320 


4154 


015400 


012146 


4155 


015402 


104403 


4156 


015404 


002 


4157 


015405 


000 


4158 


015406 


104401 


4159 


015410 


002107 


4160 


015412 


012246 


4161 


015414 


104402 


4162 


015416 


104401 


4161 


015420 


002106 


4164 


015422 


104401 


4165 


015424 


001213 


4166 


015426 


022711 177777 


41'6 7 


015432 


001362 


4168 






4169 


015434 


104401 


4170 


015436 


001716 


4171 


015440 


010546 


4172 


015442 


042716 160037 


4173 


015446 


104402 


4174 






4175 


015450 


012602 


4176 


015452 


012601 


4177 


015454 


000207 


4178 






4179 






4180 






4181 






4182 






4183 






4184 






4185 
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END OF PASS ROUTINE 



jCOMMON SUBROUTINES AND HANDLERS 



S SBTTL ESR15 
jESR15 

jTHIS ROUTINE IS USED TO TYPE OUT ERROR DATA FOR ITEM 15 
fOF THE ERROR TABLE 9 AT THE TIME OF ENTRY INTO THIS 
jROUTINE F5 CONTAINS THE DISK ADDRESS FROM WHICH THE 12 
jHEADERS WERE READ, THE SECTOR 8*S WHICH GAVE BAD HEADERS HAVE 
jBEEN STORED STARTING AT »BUFR'. THE CORRESPONDING BAD HEADERS 
jHAVE BEEN STORED STARTING AT 'BUFRi' 8 



jTHE PRINTOUT LOOKS LIKE* 
jSEC# HDR RECVD 



}AA 


BBBBBB 


AAsB 


jEXPCTD 


HDRsXXXXXX TRY# 


ESR15I 








MOV 


R1,-(SP) 




MOV 


R2#-(SP) 




MOV 


#8UFR,R1 




MOV 


#BUFRt#R2 


1$I 


MOV 

TYPOS 


CRl)+#-CSP) 




e BYTE 


2 




S BXTE 







TYPE 






BLNKS3 






MOV 


(R2)*»-(SP) 




TYPOC 






TYPE 






BLNKS4 






TYPE 






8CRLF 






CMP 


#177777*CR1) 




BNE 


IS 




TYPE 






MSG6 






MOV 


R5,-(SP) 




BIC 


#160037, CSP) 




TYPOC 






MOV 


CSP)+,R2 




MOV 


CSP3*,R! 




RTS 


PC 



BBBBBBsBAD HEADER 



I ?PU5H Rl ON STACK 

MPUSH R2 ON STACK 

?SEC «*S STORED HERE PREVIOUSLY 

jBAD HDRS STORED HERE PPVSLY 

;G0 TYPE OUT BAD SEC * COCTAL) 
jONLY 2 DIGITS 
jSUPPES LDG Q'S 
fTYPE 3 BLNKS 

jGO TYPE OUT BAD HEADER 



jALL BAD SEC #*S TYPD OUT? 
?IF NOT GO BAK 



I TYPE OUT EXPCTD HEADER FOR 



{THAT CYLINDER 



ffPOP STACK INTO R2 
jfPOP STACK INTO Rl 



8 SBTTL ESR13 
JESR13 

jTHIS ROUTINE IS USED WITH *ERRQR 13 Bff TO TYPEOUT OUT ERROR 
?DATA 9 THE SECTOR #*S WHICH GAVE BAD HEADERS HAVE BEEN STORED 
jSTARTING AT 9 BUFR% THE CORRESPONDING BAD HEADERS HAVE 
{BEEN STORED STARTING AT *BUFR1* 9 R5 CONTAINS THE EXPECTED 



015456 004737 015364 
015462 104401 01S470 
015466 000404 



015500 
01S500 
015502 
015506 

oissio 

015512 



0OS046 
032705 
001401 
005216 
104402 
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4186 
4187 

4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
420? 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
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015514 104401 002053 

015520 013746 001254 

015524 005216 

015526 104402 

015530 000207 



4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 



015532 
015536 

015542 

015546 

015S60 
015560 
015564 
015566 
015567 
015570 
013574 



015606 
015606 
015612 
015614 
015615 
015616 



004737 

004737 



104401 
000404 



013746 
104403 
003 
000 
104401 
000404 



013746 

104403 

003 

000 

000207 



015456 

016320 



fHEADER FOR THAT CYLINDER, THE TYPEOUT LOOKS LIKE 
HDR RCVD 



?SEC# 

fAA 

f ® 

fEXPCTD HDRsXXXXXX 



AAsBAD SEC « 
BBBBBBsBAD HEADER 
TRYil Y SURsZ 



ESR138 



M65I1 
64$i 



JSR 
TYPE 
BR 
e ASCXZ 

CLR 
BIT 
8EQ 

INC 
TYPOC 

TYPE 

MOV 

INC 

TYPOC 

RTS 



PCESR1S 

,65$ 

648 

/ SURs/ 

-(SP) 

#20»R5 

IS 

(SPJ 



»MSG13 

RETRY2, 

CSP) 



jjTYPE ASCIZ STRING 
MGET OVER THE ASCIZ 



fSUR OR 11? 



J 



8 SBTTL ESR20 
?ESR20 

f SUBROUTINE TO TYPE OUT ERROR DATA FOR 'ERROR 20% AT THE TIME 
?0F ENTRY, TABLE STARTING AT *BUFR* CONTAINS SECTOR #'S THAT GAVE BAD 
fH£ADERS e TABLE AT-*BUFR1* CONTAINS BAD HEADERS, R5 CONTAINS EXPECTED 
fHEADER FOR THE CYLINDER, *INADR* AND 'QUTADR* CONTAIN THE CYLINDER " 
^ADDRESSES BETWEEN WHICH THE IMPLIED SEEK WAS TRIED* 

;G0 TYPE OUT SEC #'S, BAD HDRS 

jGET CYL #*S BETWN WHICH SEEK 

?WAS TRIED 

fjTYPE ASCIZ STRING 

fjGET OVER THE ASCIZ 



?G0 TYPE CYL * FROM WHERE 

;SEEK BEGAN 

jTYPE 3 DIGITS 

fSUPRES LOG 0*S 

JjTYPE ASCIZ STRING 

; jGET OVER THE ASCIZ 



ESR203 


JSR 


PC r ESR13 




JSR 


PC,ERR2 




TYPE. 


,6gS 




BR 


64S 


F 1656* 


aASCIZ 


/ CYLAe/ 


64g| 








MOV 


SREGO.-CSPD 




TYPOS 






8 BYTE 


3 




e BYTE 







TYPE 


,67S 




BR 


66$ 


116781 


9 ASCIZ 


/ CYLBs/ 


66$l 








MOV 


«REG1,«(5P) 




TYPOS 






8 BYTE 


3 




a BYTE 







PTS 


PC 




»SBTTL 


ESR25 



?TYPE CYL ff TO WHICH SEEK 
jWAS DONE 
jTYPE 3 DIGITS 
ySUPRES LDG B S 
; RETURN 
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4242 
4243 

4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4157 
4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
427S 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 



015620 010205 



015622 012702 001266 



015626 
015632 

015636 
015644 
015646 
015650 

015652 
015656 
015660 



012703 
012704 

032777 
001076 
104401 
001213 

163712 
006212 
011246 



015672 
015674 
015676 
015700 
015702 
015704 
O1S706 
015710 

015712 
015716 
015720 
015722 
0IS726 
015732 

015734 
015736 
015740 

015744 

O157S0 



015754 
015760 
015762 
015763 
015764 
0IS766 



001320 
001352 



163274 IS e 



015662 104403 

035664 004 

015665 000 

015666 10440! 
015670 002107 



012346 
104402 
104401 
002110 
012446 
104402 
104401 
002110 

012700 
021200 
002405 
062700 

022700 
001371 

000300 
005300 
063700 



013746 
104403 
003 
000 
104401 
002107 



000400 
002400 



001450 
001170 
016220 

001174 



MOV 

MOV 

MOV 
MOV 

BIT 
BNE 
TYPE 
SCRLF 

SUB 
ASR 

MOV 



MOV 
TYPOC 
TYPE 
. BLNKS2 
MOV 
TYPOC 
TYPE 
BLNKS2 

MOV 
CMP 

BLT 
ADD 
CMP 

BNE 

SWAB 
DEC 

ADD 

MOV 
JSR 



R2,B5 
#BUFR,R2 



#BUFR1#R3 
#BUFR2,R4 



#SW13,§SWR 
4$ 



PBUF0,(R2) 

CR2) 

(R2)»-(SP) 



TYPOS 
9 BYTE 4 
9 BYTE 
TYPE 
BLNKS3 



CR3)**-CSP) 



(R4)+*«(SP) 



S400, RO 
(R23»R0 
3$ 
#400, R© 

«4QQ*R0 
23 

RO 
RO 
ADRES* RO 

R0,$REG3 

PCBRKDA 



MOV 
TYPOS 
.BYTE 3 
e BYTE 
TYPE 
BLNKS3 



$REGS,-CSP3 



jSAVE ADRES OF TERMINATOR 

jINITLZE PTR TO TABLE STORING 
j ADRES OF BAD DATA 
jINITLZE PTR TO 'EXPCTD* DATA 
jINITLZE PTR TO 'RECVD' DATA 

fINHIBIT TYPE OUT? 
;YES, EXIT 
;TYPE CRfLF 



jGET WORD * IN BUFR (0,1,2,,,) 

JWHICH WAS BAD 8 NOTE YOU 
fCAN HAVE THE ACTUAL MEMORY 
jADRES BY ADDING "IOBUFQ* 
jTO THIS 
jGO TYPE WORD # THAT WAS BAD 



jGET EXPCTD DATA 
jGO TYPE IT 



jGET RECVD DATA (BAD) 
jGO TYPE IT 



jGET THE DISK ADRES FROM 
jWHXCH THIS (BAD) DATA WAS 
jREAD 



;P0 CONTAINS THE DISK 
fADRES FROM WHICH THE (BAD) 
jDATA WAS READ 

jGO BREAK ABOVE DISK ADRES 
jINTO CYL# f SUR#, SEC# 

jGET THE CYL# 
jTYPE IT 
JONLY 3 DIGITS 
fNO LEADING ff S 
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4298 


015770 


013746 


001176 


4299 


015774 


104403 




4300 


015776 


001 




4301 


015777 


000 




4302 








4.3 3 


016000 


104401 




4304 


016002 


002106 




4305 








43<)6 


016004 


013746 


001200 


4307 


016010 


104403 




43uB 


016012 


002 




4309 


016013 


000 




4310 








4311 


016014 


005722 




4312 


016016 


020205 




431 3 








4314 


016020 


001306 




4315 


016022 


104401 




4316 


016024 


002053 




4317 


016026 


013746 


001254 


43SB 


016032 


062716 


000003 


4319 


016036 


104403 




4320 


016Q40 


001 




4321 


016041 


000 




43^2 








4323 


016042 


000207 




4324 








4325 








4326 








4327 








4328 








4329 








4330 








4331 








4332 








4333 








4334 








4335 








4336 








4337 








4338 








4339 








43 4 


016044 


032777 


020000 


43*1 


016052 


001012 




4342 


016Q54 


0116 37 


001116 


4343 


016060 


162737 


000002 


434 4 


016066 


117637 


000000 


4345 


016074 


004737 


017446 


4346 








4347 


016100 


062716 


000002 


4348 


01610 4 


000002 




4349 








4350 








4351 








4352 








4353 
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MOV 


BREG6,<»(SP) 


?GET SUR s 




TYPOS 




?TYPE 




g BYTE 


1 


;1 DIGIT ONLY 




S BYTE 









TYPE 








BLNKS4 








MOV 


SREG7,«»{SP) 


?GET S£C# 




TYPOS 




?TYPE 




9 BYTE 


2 


;2 DIGITS 




.BYTE 









TST 


(R2) + 


JINCREMNT PTR 




CMP 


R2,R§ 


?TYPED OUT ALL BAD DATA 
jINFQ? 




BNE 


IS 


jIF NOT LUP BAK 




TYPE 








MSG13 






* TRY #}* 




MOV 


RETRY2,«-CSP) 




GET RETRY COUNT 




ADD 


#3,(SP) 




FORM THE RETRY N0 8 




TYPOS 






TYPE IT OUT 




9 BYTE 


1 






9 BYTE 










4$ I RTS PC | IF YES, RETURN 

jMESSAGE HANDLER 

jTHE MESSAGE HANDLER IS USED FOR TYPING OUT MESSAGES & DATA 

jRELATED TO THE MESSAGE 8 IF SW13 IS SET, THE TYPEOUT IS 

^INHIBITED, THE CALL IS| 

1 MESAGE ,XX 

jXXX IS THE MESSAGE NUMBER & PROVIDES AN INDEX TO THE 

? 'ERROR ITEMS TABLE' WHERE THAT MESAGE ITEM 

fIS LOCATED^ 

fTHE MESAGE ITEM CONTAINS! 

! MSf POINTER TO THE ASCII MESAGE 

J DHl POINTER TO THE DATA HEADER 

J DTi . POINTER TO THE DATA 

f TERMINATOR 

jIF *DT* IS THE DATA IS TO BE PRINTED USING THE SUBROUTINE 

^INDICATED IN PLACE OF THE TERMINATOR 

163066 MSGEI BIT #SW13,8SWR jlNHIBIT TYPEOUT? 

BNE 1$ ;IF YES, EXIT 

MOV CSP),$ERRPC jGET ADRES OF 'MESAGE' CALL 

001116 SUB #2,SERRPC ; STORE IT 

001114 MOVB §(SP),$ITEMB ;GET MESAGE # CINDEX TO ITEM TABLE) 

JSP PC,9#ERRTyP ,"GQ TO 'ERRTYP* & TYPE OUT 
jINFQ 
I S S ADD #2,(SP) fADJUST RETURN ADDRES 

RTI jEXIT 

jTHIS ROUTINE IS USED FOR TYPING OUT ASCII MESSAGES. BEFORE 

jTHE MESSAGE IS TYPED SW13 IS CHECKED & IF SET THE 
jTYPEOUT IS INHIBITED & AN EXIT IS MADE, 

fTHE CALL FOR THIS ROUTINE IS "TYPMSG", AN ENCODED 
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4354 |TRAP INSTRUCTION, 

4355 fTHE POINTER TO THE ASCII MESSAGE TO BE TYPED IS LOCATED IN THE 

4356 jWORD FOLLOWING THE ^TYPMSG" CALL, 
4357 

4358 056106 032777 020000 163024 TY 8 MSG| BIT #SW13,@SWR jlNHIBIT TYPEOUT? 

4359 (516114 OO1005 BNE 2S jYES, EXIT 

4360 016116 017637 000000 016126 MOV P(SP),1$ ;GET POINTER TO ASCII MESSAGE 

4361 016124 104401 TYPE ? G0 TYPE ASCII STRING 
43*2 . 016126 000000 |$J 

4363 016130 062716 000002 2$i ADD #2,(SP) ?ADJUST RETURN ADRES, SKIP OVER 

4364 {POINTER ON RETURN 
43b5 01613 4 000002 RTI ;EXIT 
4366 
4367 
4368 
4369 

4370 ?GT5RG 

4371 >THIS ROUTINE EXTRACTS THE CYLINDER * FROM RKDA AND STORES IT 

4372 f IN $R£G4„ THEN TRANSFERS RKCS, ER, DS, DA TO SREGO, gREGl, SREG2, 

4373 016136 017746 163322 GT5RGS MOV @PKDA,»(SP) ?PUSH RKDA ONTO STACK 

4374 016142 042716 160037 BIC #160037, (SP) ;MASK OUT NON«CYLINDER BITS 

4375 016146 006316 ASL (SP) ,'SHIFT 8 BITS OF CYL ADRES TO LO BYTE 

4376 036150 006316 

4377 016152 006316 

4378 016154 000316 

4379 016156 112637 001172 
438C 
43B1 
4382 
438 3 fGT4RG 

4384 |THXS ROUTINE TRANSFERS THE CONTENTS OF RKCS, RKEP, RKDS 

4385 fRKDA TO SREGO, $REG1, SREG2, $REG3 RESPECTIVELY* $REG'S 

4386 |ARE USED FOR TYPING OUT THERE CONTENTS AT THE TIME OF ERROR 
4 38 7 

4388 016162 017737 163270 001162 GT4RG? MOV fiRKCS, SREGO ?GET RKCS 

4389 016170 017737 163260 001164 MOV §RKER,$REG1 j RKER 

4390 016J76 017737 163250 001166 MOV §RKDS,$REG2 J RKDS 

4391 016204 017737 163254 001170 MOV @RKDA,8REG3 ? RKDA 

4392 016212 000207 RTS PC ;EXIT FROM THIS ROUTINE 
4393 

4394 jGETINF 

4395 }THIS ROUTINE SAVES THE CONTENTS OF RKCS IN SREGO 

4396 jRKER IN SREGl, RKDS IN $REG2 8 THEN IT BREAKS RKDA 

4397 jINTO DRIVE NO, CYLINDER «, SURFACE AND SECTOR # 9 

4398 f AND SAVES THEM IN SREG4, SREG5, 8REG6, $REG7 8 
4399 

4400 016214 004737 016162 

4401 016220 010046 

4402 016222 010146 

4403 016224 010246 

4404 016226 012700 001202 

4405 016232 013701 001170 

4406 016236 010102 

4407 016240 042702 177760 

4408 016244 010240 

4409 016246 006201 



MOV 


@RKDA,«CSP) 


BIC 


#160037, (SP) 


ASL 


(SP) 


ASL 


CSP) 


ASL 


(SP) 


SWAB 


(SP) 


MOVB 


(SP)*,$REG4 



GETINFS 


JSR 


PCGT4RG 


BRKDAi 


MOV 


R0,«CSP) 




MOV 


R1,-(SP) 




MOV 


R2,-CSP) 




MOV 


#SREG7+2,R0 




MOV 


$REG3,R1 




MOV 


R1,P2 




BIC 


#177760, R2 




MOV 


R2,-(R0) 




ASR 


Rl 
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4410 


016250 


006201 




4411 


016252 


006201 




4412 


016254 


006201 




4413 


016256 


010102 




4414 


016260 


042702 


177776 


4415 


016264 


010240 




4416 


016266 


006201 




4417 


016270 


010102 




4418 


016272 


042702 


177400 


4419 


016276 


010240 




4420 


016300 


000301 




4421 


016302 


042701 


177770 


4422 


016306 


010140 




4423 


016310 


012602 




4424 


016312 


012601 




4425 


0163H 


012600 




4426 


016316 


000207 




4427 








4428 








4429 








4430 








4431 








4432 








4433 








4434 








4435 








4436 








4437 








4438 








4439 


016320 


013737 


001260 001162 


4440 


016326 


004737 


016434 


4441 


016332 


013737 


001162 00H§4 


4442 


016340 


013737 


001262 001162 


4443 


016346 


004737 


016434 


4444 


016352 


O05704 




4445 


016354 


001407 




4446 


016356 


013746 


001162 


444"? 


016362 


013737 


001164 00H62 


4448 


016370 


012637 


001164 


4449 


0t6374 


000207 




4450 








4451 








4452 








4453 








4454 








4455 








4456 








4457 








4458 








4459 








4460 


016376 


010537 


001162 


4461 


016402 


004737 


016434 


4462 


016406 


005704 




4463 


016410 


001006 




4464 


016412 


013737 


001162 00H64 


4465 


016420 


005037 


001162 
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ESR25 








ASR 


Rl 




ASR 


Rl 




ASR 


Rl 




MOV 


R1,P2 




BIC 


#177776, P2 




MOV 


R2,»CR03 




ASR 


Rl 




MOV 


R1,R2 




BIC 


#177400, R2 




MOV 


R2,°>(R0) 




SWAB 


Rl 




BIC 


8177770, Rl 




MOV 


R1,-(R0) 




MOV 


(SP3+,R2 




MOV 


CSP)+,R1 




MOV 


(SPH,RQ 




RTS 


PC 



8 SBTTL ERRS 

fTHIS ROUTINE GETS THE CYLINDER NUMBERS BETWEEN WHICH (IMPLIED) SEEK 

{WAS DONE B CR4)s0 INDICATES SEEK FROM 'OUTADR' TO 'INADR' 

j(R4)si INDICATES SEEK TO *0UTADR' 8 ON EXIT SREGO CONTAINS CYL # 

jFROM WHICH SEEK WAS INITIATED, SREG1 CONTAINS CYL # TO WHICH SEEK WAS DONE 

ERR2S 



MOV 


INADR, SREGO 


{GET CYL ADRES 


JSR 


PC, GCYL 


j GO GET CYL# FROM IT 


MOV 


SREGO» SREG1 


{SAVE 


MOV 


QUTADR, SREGO 


{GET CYL ADRES 


JSR 


PC, GCYL 


J GO GET CYL ft FROM IT 


1ST 


R4 


{GOING WHICH WAY? 


BEQ 


IS 


{'QUTADR* TO 'INADR*, 


MOV 


SREGO, »CSP3 


jEXCHANG CYL" TO GET 


MOV 


SREGI, SREGO 


{CORRECT 'TO* & 'FROM 


MOV 


(SP3+, SREGI 




RTS 


PC 


{RETURN 



iSl 

S SBTTL ERR1 
jERPl 

fTHIS SUBROUTINE FINDS OUT THE CYLINDER NQS„ BETWEEN WHICH THE SEEK 
j IS DONE e THE CYLINDER # WHERE THE HEADS WHERE PRIOR TO MOVING, IS 
fDEPOSITED IN SREGQ. THE CYLINDER * WHERE THE HEADS SHOULD BE AFTER 

{MOVEMENT, IS DEPOSITED IN SREG1 , R4 INDICATES WHICH DIRECTION THE. 
fHEADS WERE MOVING, IN OR OUT 9 R5 CONTAINS THE 
{DISK ADDRESS (IN OR OUT AS THE CASE MAY BE) , 



MOV R5, SREGO 

JSR PC,GCYL {GO GET CYL « 

TST R4 {WAS GOING IN OR OUT? 

BNE IS {OUT 

MOV SREGO, SREG1 

CLR SREGO 
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4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
44R0 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4S9! 



016424 000207 

016426 005037 001164 

016432 000207 



016434 010046 

016436 013700 001162 

016442 042700 160037 



016446 
016450 
016452 
016454 
016456 
016460 
016464 
016466 



006200 
006200 
006200 
006200 
006200 
O10037 
012600 
000207 



016470 
016474 
016502 
016310 
016512 
016514 
016520 
016526 
016530 
016534 
016536 
016540 
016542 
016546 
016550 
Q165§6 
016560 
016562 
016564 
016570 
016572 
016576 
016600 



005037 
013777 
012777 
104421 
000402 
005037 
032777 
001024 
012746 
005216 
001376 
005726 
005237 
001364 
032777 
001010 
104420 
002027 
104420 
011646 
162716 
104402 
000002 



001174 
001230 
000015 



001174 
000100 



001174 
020000 



001733 
000002 



162762 

162746 
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PC 

SPEGI 
PC 



e SBTTL GCYL 
jGCYL 

fTHIS ROUTINE EXTRACTS THE CYLINDER N0 9 FROM THE DISK ADDRESS 
{CONTAINED IN *SREG0% AND THEN STORES it BACK IN 'SREGO' 

{PUSH RO ONTO STACK 

{MASK OUT DRV « BITS & 
jSUR, SEC BITS IF PRESENT 

{SHIFT CYL BITS RIGHT 
jBY 5 



GCYL! 


MOV 


RO,-(SP) 




MOV 


SREGO, RO 




BIC 


#160037 # RO 




ASR 


RO 




ASR 


RO 




ASR 


RO 




ASR 


RO 




ASR 


RO 




MOV 


RO, SREGO 




MOV 


CSP3*,R0 




RTS 


PC 



{STORE CYL § IN SREGO 
{POP RO FROM STACK 
{EXIT 



8 SBTTL DRV e RESET - DRIVE RESET ROUTINE 
8 SBTTL RESDON - WAIT FOR DRIVE RESET TO BE DONE 
}DR 9 RST 

jTHIS ROUTINE DOES A DRIVE RESET ON 1"HE DRIVE WHOOSE ADDRESS IS IN 
?RKDA 9 MULTIPLE RETURN ADDRESSES FOR THIS ROUTINE ARE PROVIDED^ 
jIF THERE IS NO ERROR (R/W/S RDY SETS WITHIN CERTAIN TIME) , THEN 
{A NORMAL EXIT IS MADE 9 IF R/W/S RD* DOES NOT SET ERROR IS REPORTED,, 



DR e RSTj CLR 

MOV 

MOV 

CON a RDY 

BR 
RES.D08 CLR 



162724 lis 



162362 



BIT 

BNE 

MOV 

INC 

BNE 

TST 

INC 

BNE 

BIT 

BNE 

TYPMSG 

MSG12 

TYPMSG 

MOV 

SUB 

TYPOC 

RTI 



SREG5 

DRIVAD,£RKDA 

#1§,§RKCS 

RES 9 D0*4 

SREG5 

#100,§RKDS 

28 

#-10»-CSP3 

(SP3 

,'-2 

(SP)* 

SREG5 

IS 

#SW13,@SWR 

2S 



,MSG7 

CSP),«(SP) 

#2,CSP3 



{INITIALIZE THE COUNT 
{DRIVE RESET, GO 



{DID R/W/S RDY SET? 

{PUSH COUNT ON SP 
{COUNT IT DOW 

{POP UP SP 

{IF NOT WAIT 
{WAITED LONG? 



MD-11«DZRKL«E» RKil-RKOS DYNAMIC TEST 
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4522 
4523 
4524 
4525 

4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
45 41 
4542 
4543 
4544 
4545 
4546 
4547 
454B 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4556 
4559 
4560 
4561 
45h2 
4563 
4564 
4565 
4566 
4567 

4568 
4569 
4570 
457! 
4572 
4573 
4574 
4575 
4576 
4577 



016602 
016610 
016 616 
OJ&620 
016624 
016630 
016632 
166 36 
016640 
0166 42 
016644 
016650 

016660 
016660 
01666 2 
16666 



016670 
016674 

016706 
016706 
016712 



S SBTTL CON g RESET - CONTROL RESET ROUTINE 
„SBTTL CON s RDY *» WAIT FOR CONTROL READY 
jCON.RESET 
jCON s RDY 

fTHIS ROUTINE IS CALLED BY USING *CNT 9 RESET' WHICH IS ACTUALLY 
j 'TRAP* INSTRUCTION WITH THE LOWER BYTE ENCODED TO PROVIDE 
jAN INDEX TO THE CONTROL»RESET ROUTINE BELOW 9 
fTHE ROUTINE ISSUES A CONTROL RESET AND WAITS FOR 
?THE *CNTRL RDY* FLAG TO SET 8 WHEN THE FLAG SETS 
jAN EXIT IS MADE OUT OF THE R0UTINE 8 IF 9 CNTRL»»RDY* 
jDOES NOT SET WITHIN A CERTAIN TIME AH ERROR MESSAGE 
I CNT RDY DIDN*T SET 

j PCaXXXXXX RKCSsXXXXXX 
j IS GIVEN 8 

fTHIS ROUTINE IS CALLED THROUGH THE *TRAP* INSTRUCTION 
jUSING THE LOWER BYTE AS AN INDEX TO THIS ROUTINE* 
fTHE TRAP DECODER LOCATED AT '$TRAP* 9 



jCN„RDY 

5THE CN 9 RDY ROUTINE IS CALLED BY USING CNT 9 RDY WHICH IS A TRAP 

jINSTRUCTION WITH ITS LOWER BYTE ENCODED,, 

jTHIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT 

jSETS EXITS OUT, IF WITHIN A CERTAIN TIME CNTRL RDY DOES 

f NOT SET AN ERROR IS REPORTED, WAITING TIME IS 883 MS FOR 11/20 

•175 MS FOR 11/45 WITH BIPOLAR MEMORY, 



000001 
177500 



001170 
162626 



012777 
012737 
000402 
005037 
105777 
100431 
005237 
001372 
1O4420 
001742 
104401 
000403 



011646 

162716 000002 

104402 



104401 016676 
000404 



017746 162544 
104402 



162646 

001170 



CN 9 RSTi MOV 
MOV 
BP 

CN„PDYl CLR 



f 165$ t 

64SJ 



TSTB 

BMI 

INC 

BNE 

TYPMSG 

MSGiO 

TYPE 

BR 

.ASCIZ 

MOV 
SUB 
TYPOC 



Jfl,9RKCS 

8-300, SREG3 

CN a FDY*4 

$REG3 

@RKCS 

2$ 

IREG3 

IS 



;65S 

64$ 

«15»«i2»/PCs/ 

(SP),»CSP3 
#2#(SP) 



j ISSUE A CONTROL RESET 
jSET UP COUNT 

fSKIP OVER CN a RDY 

jDID CNTRL-RDY SET? 

jYES, EXIT 

?WAITED LONG? 

j IF NOT, GO BAK & WAIT 



j f TYPE ASCIZ STRING 
S ?GET OVER THE ASCIZ 



?G0 TYPE PC IN THE MAIN PROGRAM, 



TYPE ,67$ 

BR 66$ 

IJ67S8 B ASCIZ / RKCSs/ 
66SS 

MOV @RKCS,«(SP) 
TYPOC 



016714 000002 



2S? 



RTI 



I WHERE ERROR OCCURRED 
}»TYPE ASCIZ STRING 
I jGET OVER THE ASCIZ 



j GET RKCS 
?G0 TYPE IT 



jPETURN FROM THIS 
^ROUTINE TO THE MAIN 
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4578 








45 7 9 








45 8 








45ei 








4582 








4583 








4584 








4585 








4586 








4587 








4588 


016716 


005037 


001264 


4589 


016722 


032777 


000100 


4590 


016730 


001017 




4591 


016732 


00S237 


001264 


4592 


016736 


001371 




4593 


016740 


032777 


020000 


4594 


016746 


001010 




4595 


016750 


104420 


002027 


4596 


016754 


104420 


001733 


4597 


016760 


011646 




4598 


016762 


162716 


000002 


4599 


016766 


104402 




4600 


01 6770 


000002 




4601 








4602 








4603 








4604 








4605 


016772 


104401 


001616 


4606 


016776 


113746 


001102 


460? 


017002 


104402 




4608 


017004 


000207 




4609 








4610 








4611 








4612 








4613 








4614 








4615 








4616 








4617 








4616 








4619 








4620 








462! 








4622 








4623 








4624 








4625 


017006 






4626 


017006 


104407 




4627 


O17Q10 


032777 


000400 


4628 


017016 


001053 




4629 








4630 


017020 


032777 


040000 


4631 


017026 


001047 




4632 








4633 


017030 


000416 
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CQN 8 RDY « WAIT FOR CONTROL READY 

jPROGRAM 

S SBTTL TST a RWS • WAIT FOR R/W/S RDY 
?TST„RWS 

jTHIS ROUTINE WAITS FOR THE R/W/S READY TO ET AND RETURNS 
jTO THE MAIN PROGRAM WHEN IT SETS* IF IT DOES NOT SET 
jWITHIN A CERTAIN TIME AN ERROR IS REPORTED, 
jWAITING TIME APPR0X 9 1040 MS FOR 11/20, 208 MS FOR 11/45 



162172 



162122 



TSTRWSf 


CLR 


TIMER 


ISi 


BIT 


#10Q,@RKDS 




BNE 


2$ 




INC 


TIMER 




BNE 


IS 




BIT 


SBIT13,§SWR 




BNE 


28 




TYPMSG 


»MSG12 




TYPMSG 


?MSG7 




MOV 


CSP5,-CSP) 




SUB 


#2,CSP) 




TYPOC 




2$: 


RTI 






a SBTTL 


TEST ABORT R 


f ABRT 






ABRTS 


TYPE 


,MSG3 




MOVB 


$TSTNM,-CSP) 




TYPOC 






RTS 


PC 



jCOMMON SUBROUTINES fi HANDLERS 

8 SBTTL SCOPE HANDLER ROUTINE 

I^THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS 9 IT WILL INCREMENT 

}#AND LOAD THE TEST NUMBERCSTSTNM) INTO THE DISPLAY REG, (DISPLAY*? |0>J 

l®AND LOAD THE ERROR FLAG CSERFLG) INTO DISPLAY41S I 08> 

ffcTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE8 

?®SW14si LOOP ON TEST 

5»SW09asi LOOP ON ERROR 

?»CALL 

l» SCOPE pfSCOPEsIOT 



SSCOPEl 



162112 111 



CKSWR 

BIT 
BNE 

BIT 

BNE 



&SW8,§SWR 
fOVER 



#BIT14#9SWR 

0OVER 



!###«START OF CODE FOR THE XOR TESTER8#### 



If TEST FOR CHANGE IN SOFT^SWR 

|WAS SW8 USED TO SELECT 
$A TEST? IF YES, SKIP OVER 
?THE REST, U ARE LOOPING ON 
ULOOP ON PRESENT TEST? 
HYES IF SW14®1 



SXTSTRi BR 



jfZT RUNNING ON THE «XOR H TESTER CHANGE 



MD«ii»»DZBKL^E ? RKH*»RKO§ DYNAMIC TEST 
DZRKLE.PH 26«APR«*77 12S27 
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4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
464S 
4646 
4647 
4648 
4649 
4650 
4651 
463 2 
4653 
4654 
4655 
4656 
4657 
4658 
46S9 
4660 
4661 
4662 
4663 
4664 
4663 
4666 
4667 
4666 
4669 
4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 

4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 



017032 

017036 

017044 

017Q50 

017054 

017056' 

017060 

017064 

017Q66 

017066 

017072 

017074 

017|02 

0|7|04 

017S12 

017114 

017120 

017124 

017130 

017134 

017140 

017146 

017154 

017|60 



017162 
017164 
017170 
017172 
017200 
017206 
017210 

017214 
017220 

017224 
017232 
037234 
017242 



013746 
012737 
005737 
012637 
000421 
022626 
012637 
000407 

105737 
001412 
032777 
001404 
013737 
000415 
105037 
105237 
011637 
011637 
005037 
112737 
013777 
013716 
000002 



104407 
105237 
001775 
013777 
032777 
001402 
104401 

005237 
011637 

032777 
001404 
023727 
101044 



000004 
017056 
177060 
000004 



001000 162036 



001103 
001102 
001S06 
001110 
001204 
000001 
001102 
001106 



00H15 
161766 



001102 
002000 



001112 
001116 



161742 
161732 



000004 161706 



001112 000006 



MOV 
MOV 
TST 

MOV 
BR 
SSI CMP 

MOV 
BR 

6$trS®#8#END 



2S ? 



001110 00H06 7$! 



4Ss 
$SVLAD| 



TSTB 

BEG 

BIT 

BEQ 

MOV 

BR 

CLRB 

INCB 

MOV 

MOV 

CLR 

MOVB 

MOV 

MOV 

RTI 



•#ERRVEG,-CSP) 

#5$,§#ERRVEC 
§#177060 
(SP)+»g#ERRVEC 
3SVLAD 
CSP)*,(SPH 
CSP)*,©#ERRVEC 
7S 
OF CODE FOR THE XOR 
$ERFLG 
3SVLAD 
#BXTG9,@$WR 
4$ 

$LPERR,SLPADR 
gOVER 
SERFLG 
STSTNM 
CSP),$LPADR 
CSP),SLPERR 
SESCAPE 
U,$ERMAX 
STSTNM, ^DISPLAY 
SLPADR,CSP) 



fjTHIS INSTRUCTION TO A "NOP" (NQPS240) 

j I SAVE THE CONTENTS OF THE ERROR VECTOR 

I! SET FOR TIMEOUT 

MTIME OUT ON XOR? 

JJRESTORE THE ERROR VECTOR 

;>G0 TO THE NEXT TEST 

,'jCLEAR THE STACK AFTER A TIME OUT 

If RESTORE THE ERROR VECTOR 

;jLOOP ON THE PRESENT TEST 

TESTER#«### 
??HAS AN ERROR OCCURRED? 
; JBR IF NO 
jjLOOP ON ERROR? 

mbr if no 

j? set loop address to last scope 

mzero the error flag 
mcoumi test numbers 
f j save scope loop address 
??save error loop address 

?? CLEAR THE ESCAPE FROM ERROR ADDRESS 
IfONLY ALLOW ONE(l) ERROR ON NEXT TEST 
f JDI5PLAY TEST NUMBER 
IjFUDGE RETURN ADDRESS 
INFIXES PS 



I }#####*###*«#*-»###«'#«###^##«#«.*#*#*######«»«*###®^ # ###^ft^*#« 



e S8TTL ERROR HANDLER ROUTINE 



f*SW15=l 
f#SW13=i 
j#SW10s| 
?»SW09sl 
f*SW12ssl 



017244 162737 000002 001116 
017252 117737 161640 001114 



f#GO TO ERRTYP ON ERROR 
$#NOT FROM SYSMAC 



$ERRORi CKSWR 
7SS INCB 
BEQ 
MOV 
BIT 
BEQ 
TYPE 

IS! INC 
MOV 

BIT 
BEQ 
CMP 
BHI 

S$S SUB 



HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 

LOOP ON ERROR 

CYCLE ON ERROR TO PREVIOS 



'SCOPE' STATEMENT 



STSTNM, ^DISPLAY 
#SW10,fe>SWR 



SERTTL 
(SP),SERRPC 



?CHECK FOR SOFTWARE SWITCH REGISTER REQUEST 
fSET THE ERROR FLAG 
?DON*T LET THE FLAG GO TO ZERO 



! 



#SW2,@SWR 
5$ 

$ERTTL,#6 
6g 

#2,SERRPC 
@SERRPC,SITEMB 



jDROP THE DRIVE? 

?SW NOT SET, SKIP 

;MOBE THAN 6 ERRORS ON THIS DRIVE? 

?YES, DROP THE DRIVE 
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4690 


017260 


032777 


020000 


161652 


BIT 


#SW13,§SWR 


4691 


017266 


O0S0O4 






BNE 


2$ 


4692 


017270 


004737 


017446 




JSR 


PC,?#ERRTYP 


4693 


017274 


104401 


001213 




TYPE 


,$CRLF 


4694 


017300 


023737 


000042 


000046 2SJ 


CMP 


@#42,@#46 


4695 


017306 


001403 






BEQ 


9 + 10 


4696 


017310 


005777 


161624 




TST 


9SWR 


4697 


017314 


100002 






BPL 


33 


4698 


017316 


oooooo 






HALT 




4699 


017320 


104407 






CKSWR 




4700 


017322 


032777 


010000 


161610 3SS 


BIT 


#SW12,#SWP 


4701 


017330 


001402 






BEQ 


8 *6 


4702 


017332 


013716 


001106 




MOV 


0LPADR,(SP) 


4703 


017336 


032777 


001000 


161574 


BIT 


#SWG9,@SWR 


4704 


017344 


001402 






BEQ 


4$ 


4705 


017346 


013716 


001110 




MOV 


SLPERR, CSP) 


4706 


017352 


000002 




43; 


RTI 




4707 














4708 


017354 


013746 


001226 


6SI 


MOV 


DRVPIR,<*CSP.) 


4709 


017360 


162716 


000002 




SUB 


«2 f CSP) 


4710 


017364 


042736 


000377 




BIC 


#377,§CSPH 


4711 


017370 


104401 


002064 




TYPE 


»MSG14 


4712 


017374 


013746 


001230 




MOV 


DPIVAD,«®£SP) 


4713 


017400 


000241 






CLC 




4714 


017402 


006116 






ROL 


CSP) 


4715 


017404 


006116 






ROL 


CSP) 


4716 


017406 


006116 






ROL 


CSP) 


4717 


017410 


006116 






- ROL 


CSP) 


4718 


017412 


104402 






TYPOC 




4719 


017414 


104401 


017422 




TYPE 


,65S 


4720 


017420 


000405 






BR 


64$ 


4721 








M6SSJ 


9 ASCIZ 


/ DROPPED/ 


4722 


017434 






64SS 






4723 


017434 


105337 


001224 




DECB 


DRIVS 


4724 


017440 


022626 






CMP 


csp)*, csp)* 


4725 


017442 


000137 


015232 




JMP 


BTEOP 


4726 














4727 


017446 






ERRTYPl 






472i 


017446 


104401 


001213 




TYPE 


,SCRLF 


4729 


017452 


010046 






MOV 


RO,-CSP) 


4730 


017454 


001000 






CLR 


RO 


4731 


017 456 


153700 


001114 




BISB 


0*«ITEMB f RO 


4732 


017462 


001011 






BNE 


I'l 


4733 














4734 














4735 


017464 


013746 


001116 




MOV 


$ERRPC#«C5P) 


4736 














4737 


017470 


104402 






TYPOC 




4738 


017472 


104401 






TYPE 




4739 


017474 


001733 






MSG7 




4740 


017476 


013746 


001116 




MOV 


SERRPC*-CSP) 


4741 


017502 


104402 






TYPOC 




4742 


017504 


000440 






BR 


68 


4743 


017506 


005300 




111 


DEC 


RO 


4744 


017510 


006300 






ASL 


RO 


4745 


017312 


006300 






ASL 


RO 



?ARE WE IN ACTil AUTO MODE? 

jYES, HALT ON ERROR 

JSWR15 CHALT ON EPROR) SET? 

jBRANCH IF NOT , 

fHALT ON ERROR 

fCHECK FOR SOFTWARE SWITCH REGISTER REQUEST 



,'GET POINTER TO DRIVE # 
yCLEAR THE DRIVE PRESENT FLAG 



;GET THE DRIVE tf 



jTYPE IT OUT 
nTYPE ASCIZ STRING 
f ?GET OVER THE ASCIZ 



JDECRMNT 9 OF DRIVS PRESENT 

IRESTORE STACK 

?EXIT 



* "CARRIAGE RETURN" & LINE FEED" 

pSAVE RO 

^PICKUP THE ITEM INDEX 

I IF ITEM NUMBER IS ZERO, JUST 

jTYPE THE PC OF THE EPROR 

J SAVE 8ERRPC FOR TYPEOUT 

fERROR ADDRESS 

» GO TYPE*»-OCTAL ASCIICALL DIGITS) 



jGET OUT 

SADJUST THE INDEX SO THAT IT WILL 

? WORK FOR THE ERROR TABLE 
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4746 


017514 


006300 






ASL 


RO 


4747 


017516 


062700 


002122 




ADD 


«$ERRTB*RO 


4748 


017522 


012037 


017532 




MOV 


C"R0) + »2S 


4749 


017526 


001404 






BEQ 


3§ 


4750 


017530 


104401 






TYPE 




47SI 


017532 


000000 




2S8 


e WORD 





4752 


017534 


104401 


001213 




TYPE 


,8CRLF 


4753 


017540 


032777 


004000 161372 3$t 


BIT 


#SWll(r§SWR 


4754 


017546 


001042 






BNE 


10$ 


4755 


017550 


012037 


017560 




MOV 


CR0H*4S 


4756 


017554 


001412 






BEQ 


5$ 


4757 


017556 


104401 






TYPE 




4758 


017560 


000000 




4Ss 


.WORD 





4759 


017562 


104401 


001213 




TYPE 


,gCRLF 


4760 


017566 


062700 


000002 




ADD 


#2,P0 


4761 


017572 


005710 






TST 


CRO) 


4762 


017574 


001017 






BNE 


9g 


4763 


017576 


162700 


000002 




SUB 


#2*RQ 


4764 














4765 


017602 


011000 




SSg 


MOV 


(R0 3,RO 


4766 


OS7604 


001004 






BNE 


7S 


4767 


017606 


012600 




6$S 


MOV 


(SP)* # R0 


47b8 


017610 


104401 


001213 




TYPE 


,SCRLF 


4769 


017614 


000207 






RTS 


PC 


4770 


017616 






788 






4771 


017616 


013046 






MOV 


@(R0)*, «•(§?) 


4772 


017620 


104402 






TYPOC 




4773 


017622 


005710 






TST 


CRO) 


4774 


017624 


001770 






BEQ 


6$ 


4775 


017626 


104401 


002110 




r*PE 


»BLNKS2 


4776 


017632 


000771 






BR 


7S 


4777 


017634 


004770 


000000 


9S3 


JSR 


PC,g(R0) 


4778 














4779 














4780 














4781 














4782 














4783 














4784 


0176 40 


104401 






TYPE 




47R5 


017642 


001733 






MSG7 




4753b 


017644 


013746 


001116 




MOV 


$ERRPC»-(SP) 


4787 


017650 


104402 






TYPOC 




4789 


017652 


000755 






BP 


6$ 


4789 














4790 














4791 


017654 


004737 


017662 


iOSS 


JSR 


PC,DMPREG 


4792 


017660 


000752 






BR 


66 


4793 














4794 














4795 














4796 








fDMPREG 






4797 








fDUMPS 


OUT ALL 


RK REGISTERS 


4798 














4799 


017662 






DMPREGl 






4800 


H17662 


104401 


017670 




TYPE 


,65S 


480 t 


017666 


000441 






BR 


64$ 



jFORM TABLE POINTER 

IPICKUP K ERRQR MESSAGE" POINTER 

fSKIP TYPEOUT IF NOT POINTER 

I TYPE THE "ERROR MESSAGE 

f B CARRIAGE RETURN" & LINE FEED" 

fPICKUP "DATA HEADER" POINTER 

jDUMP OUT ALL RK REGISTERS 

fYES, BRANCH 

fPICKUP "DATA HEADER" POINTER 

fSKIP TYPEOUT IF 

?TYPE THE e 'DATA HEADER" 

j w DATA HEADER" POINTER GOES HERE 

? CARRIAGE RETURN" & LINE FEED* 

;FORM POINTER TO TERMINATOR 

;IS THE TERMINATOR 0? 

;IF NOT, BRANCH 

jYES, IT IS 0„ REPOINT TO "DATA 15 

j GO TYPE OUT DATA AS USUAL 

jPICKUP "DATA TABLE" POINTER 

?G0 TYPE THE DATA 

I RESTORE RO 

* "CARRIAGE RETURN* & LINE FEED" 

? RETURN 

fSAVE §(R0)4 FOR TYPEOUT 

jGO TYPE«»OCTAL ASCIICALL DIGITS) 

jIS THERE ANOTHER NUMBER? 

jBR IF NO 



;G0 TO THE SPECIAL ERROR 
fDATA HANDLING SUBROUTINE 
jNOTE THAT THIS ROUTINE IS 
jTHE ONE INDICATED IN THE 
fLAST WORD OF AN ERROR 
;ITEM IN THE ERROR TABLE 
? (STARTING AT $ERRTB) 



;G0 BACK, TO THE EXIT POINT 
;FOR "ERRTYP* 



SfTYPE ASCIZ STRING 
;|GET OVER THE ASCIZ 
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4802 








4803 


017772 






4804 


017772 


013746 


001116 


4805 


017776 


104402 




4806 


020000 


104401 


002110 


4807 


O20004 


010046 




4808 


020006 


012700 


001452 


4809 


020012 


013046 




4810 


020014 


104402 




4811 


020016 


104401 


002110 


4812 


020022 


020027 


001466 


4813 


020026 


003771 




4814 


020030 


012600 




4815 


020032 


000207 




4816 








4817 








4818 








4819 








4820 








4821 








4822 








4823 








4824 








4825 








4826 








4827 








4828 








4829 








4830 








4831 








4832 








4833 


020034 






4834 


020034 


010046 




4835 


020036 


010146 




4836 


020040 


010246 




4837 


020042 


010346 




4838 


020044 


010546 




4839 


020046 


012746 


020200 


4840 


020052 


016605 


000020 


4841 


020056 


100004 




4842 


020060 


005405 




4843 


020062 


112766 


000055 


4844 


020070 


005000 




4845 


020072 


012703 


020250 


4846 


020076 


112723 


000040 


4847 


020102 


005002 




4848 


020104 


016001 


020240 


4849 


oaouo 


16010S 




4850 


020112 


002402 




4851 


0201S4 


005202 




4852 


020116 


000774 




4853 


020120 


060105 




48S4 


020122 


005702 




4855 


020124 


001002 




4856 


020126 


S0S716 




4857 


020130 


100407 





f|656l e ASCIZ <15><12>/ PC 



MOV 


$EFFPC#»(SP) 


TYPOC 




TYPE 


»BLNKS2 


MOV 


RO»-(SP) 


MOV 


#RKDS*R0 


MOV 


&<RO)+»«(SP) 


TYPOC 




TYPE 


,BLNKS2 


CMP 


RO,#RKDB 


BLE 


10 


MOV 


CSPH»R0 


RTS 


PC 



a SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

f j #»«#»#*####*#*##«#«*«##^*##«.#«.#-»#«.#######«######«. # ^«,# # ^*#«#^ ## # 
f®THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
f^SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
f#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
^BEFORE THE FIRST DIGIT OF THE NUMBER* LEADING ZEROS WILL ALWAXS BE " 
?»REPLACED WITH SPACES, 
$®CALLl 

f® MOV NUM**»(SP) ;»PUT THE BINARY NUMBER ON THE STACK 
J* TYPDS f?GO TO THE ROUTINE 

STYPDSJ 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BPL 

NEG 

MOVB 

CLR 

MOV 

MOVB 

CLR 

MOV 

SUB 

BLT 

INC 

BR 

ADD 

TST 

BNE 

TSTB 

BMI 



RQ,"ESP) 

R1 # -(SP) 

R2,-CSP) 

R3,-CSP) 

R5 ? *»(SP) 

#20200, MSP) 

20(SP),R5 

It 

m 
# # -#ksp) 

RO 

#$DBL&fR3 

#" ,<R3)+ 

R2 

$DTBLCR0) # R1 

Ri,P5 

4§ 

R2 

38 

Ri,R5 

R2 

5$ 

CSP) 

1$ 



; I PUSH RO ON STACK 

?f PUSH Rl ON STACK 

ffPUSH R2 ON STACK 

? J PUSH Rj ON STACK 

ffPUSH R5 ON STACK 

llSEX BLANK SWITCH AND SIGN 

If GET THE INPUT NUMBER 

jfBR IF INPUT IS POS« 

jfMAKE THE BINARY NUMBER POS 9 

ffMAKE THE ASCII NUMBER NEG B 

If ZERO THE CONSTANTS INDEX 

ff SETUP THE OUTPUT POINTER 

ffSET THE FIRST CHARACTER TO 

ffCLEAR THE BCD NUMBER 

If GET THE CONSTANT 

ffFORM THIS BCD DIGIT 

JfBR If DONE 

If INCREASE THE BCD DIGIT BY % 

ffADD BACK THE CONSTANT 
nCHECK IF BCD DIGITS 
ffFALL THROUGH IF 
ff STILL DOING LEADING 0*S? 
If BR IF YES 
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4858 


020*32 


106316 




48S9 


020134 


103003 




4860 


020136 


116663 


000001 


4861 


020144 


032702 


000060 


4363 


0201S0 


052702 


000040 


4863 


020|S4 


110223 




4864 


020156 , 


005720 




486S 


020160 


020027 


OOOOiO 


4866 


020164 


002746 




4S67 


020166 


003002 




4868 


020170 


010502 




4869 


020172 


000764 




4870 


020174 


1057.26 




4871 


020176 


100003 




4872 


020200 


116663 


177777 


4873 


020206 


105013 




4874 


020210 


012605 




4875 


020212 


012603 




4876 


020214 


012602 




4877 


020216 


012601 




4878 


020220 


012600 




4879 


020222 


104401 


0202SO 


4880 


020226 


016666 


000002 


4881 


020234 


012616 




4882 


020136 


000002 




4883 


020240 


023420 




4884 


020242 


001750 




4885 


020244 


000144 




48gfe 


020246 


000012 




4887 


020250 


000004 




4888 








4889 








4890 








4891 








4892 








4893 








4894 








4895 








4 896 








4897 








4898 








4899 








4900 








4901 








4902 








4903 








4904 








4905 








4906 


020260 


105737 


001157 


4907 


020264 


100002 




4908 


020266 


000000 




4909 


020270 


000407 




4910 


020272 


010046 




4911 


020274 


017600 


000002 


4912 


O20300 


112046 




4913 


020302 


noiOOS 





611 
711 



177776 



$DBLKi 



BCC 

MOVB 

BIS 

BIS 

MOVB 

TST 

CMP 

BLT 

BGT 

MOV 

BR 

TSTB 

BPL 

MOVB 

CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 

TXPE 

MOV 

MOV 

RTI 

10000 9 

100Q e 

100 8 

10a 

„BLKW 



CUP) 

6$ 

1(SP)»-1(R3) 

»• #R2 

R2*CR33+ 

CROH 

RO,#iO 

2$ 

8® 

R5,R2 

68 

CSP5 + 

9$ 

-1(SP3,«2£R33 

CR3J 

CSP3*,R5 

(SP3*,R3 

CSP)*,R2 

(SP)*,R1 

CSP3*,P0 

,-IDBLK 

2tSP),4(SP3 

CSP)4>,(SP) 



yfMSDT 

If BR IF NO 

,,YES-"»SET THE SIGN 

IfMAKE THE BCD DIGIT ASCII 

|>MAKE IT h SPACE IF NOT ALREADY A DIGIT 

IfPUT THIS CHARACTER IN THE OUTPUT BUFFER 

II JUST INCREMENTING 

IfCHECK THE TABLE INDEX 

j}GO DO THE NEXT DIGIT 

nGO TO EXIT 

ffGET THE LSD 

SjGO CHANGE TO ASCII 

jfWAS THE LSD THE FIRST NON-SERO? 

jfBR IF NO 

jfYES— SET THE SIGN FOR TYPING 

I I SET THE TERMINATOR 

nPOP STACK INTO R5 

IjPOP STACK INTO R3 

H POP STACK INTO R2 

UPOP STACK INTO Rl 

HPOP STACK INTO RO 

If NOW TYPE THE NUMBER 

M ADJUST THE STACK 

If RETURN TO USER 



8 SBTTL TYPE ROUTINE 



? J 

ffcROUTIN, 

f&THE RO 

|*N0TE18 

j®NOTE28 

p®N0TE3i 

$® 

j^CALLl 

1*1) USI 

g% 

j#OR 

»• 

I* 



E TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A BYTE, 
UTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED , 

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER^ 
8FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED,, 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 



G A TRAP INSTRUCTION 
TYPE *MESADR 



TYPE 
MESADR 



ITYPEJ 



TSTB 

BPL 

HALT 

BR 

MOV 

MOV 

MOVB 

BNE 



$TPFLG 
IS 

38 

RG,°»CSP3 
P2£SP),R0 
£R03 + **»CSP3 
4$ 



jjMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



j J IS THERE A TERMINAL? 

;>BR IF YES 

jjHALT HERE IF NO TERMINAL 

fjLEAVE 

j jSAVE RO 

jjGET ADDRESS OF ASCIZ STRING 

;| PUSH CHARACTER TO BE TYPED ONTO STACK 

If BR IF IT ISN'T THE TERMINATOR 
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4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
494S 
4946 
4947 
4948 
4949 
49S0 
49S1 
4952 
4953 
4954 
4935 
4956 
4957 
4958 
4 93 9 
4960 
4961 
4962 
4963 
4964 
496S 
4966 
4967 
4968 
4969 



020304 
020306 
020310 
020314 
020316 
020322 
020324 
020330 
020332 
020334 
020336 
020340 
020344 
020346 
020352 
020356 
020360 

020364 
020370 
020372 
020376 

020402 



020404 
020410 
020414 
020422 
020424 
020426 
020430 
020434 
020436 
020444 
020452 
0204S4 
020460 
020462 
020470 
020472 
020474 
020476 



005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001213 
1OS037 
000755 
004737 
123726 
O01350 
013746 

10S366 

002770 
004737 
105337 
000770 



112716 
004737 
132737 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
I0S037 
000406 
122766 
001402 
105227 
000000 
000207 



000002 
OOOOli 
000200 



020430 

001156 



001154 
000001 



020430 
020474 



000040 
020430 
000007 



000002 
000015 



60S? 
38SS 



5*1 

6«t 



TST 

MOV 

ADD 

RTI 

CMPB 

BEG 

CMPB 

BNE 

TST 

TYPE 

SCRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

MOV 

DECB 

BLT 

JSR 

DECB 

BR 



CSP3* 
£SP3*»RG 
#2 f CSP) 

#HT*CSP3 

8$ 

#CRLF,(SP) 

5$ 

CSP3* 



SCHARCNT 

2$ 

PCSTYPEC 

$FILLC,CSP3* 

2$ 

SNULL*-tSP) 

1CSP3 

61 

PC,$TYPEC 

SCHARCNT 

7$ 



p HORIZONTAL TAB PROCESSOR 



9*1 



160S06 
000002 



000012 000002 IIS 



MOVB 
JSR 
BITB 
BNE 
TST 
BR 
ITYPECS TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

CMPB 
BEQ 
INCB 
SCHARCNT8 8 W0RD 
STYPEXS RTS 



#* , CSP) 
PCSTYPEC 

#7,$CHARCNT 

9$ 

CSP3* 

2$ 

MTPS 

iSTYPEC 

2<SP3»§STPB 

#CR*2CSP3 

1$ 

SCHARCNT 

ITYPEX 

§LF*2CSP) 

$TYPEX 

(PC)* 



PC 



II IF TERMINATOR POP IT OFF THE STACK 
H RESTORE RO 
flADJUST RETURN PC 
II RETURN 
IjBRANCH IF <HT> 

IfBRANCH IF NOT «CRLF» 

1 1 POP . <CRXLF> EQUIV 
IfTYPE A CR AND LF 

llCLEAR CHARACTER COUNT 

IJGET NEXT CHARACTER 

llGO TYPE THIS CHARACTER 

,« I IS IT TIME FOP FILLER CHARS e ? 

1 1 IF NO GO GET NEXT CHAR a 

f|GET # OF FILLER CHARS, NEEDED 

j|AND THE NULL CHAR 9 

IjDOES A NULL NEED TO BE TYPED? 

llBR IF NO«»«GQ POP THE NULL OFF OF STACK 

IjGO TYPE A NULL 

IfDO NOT COUNT AS A COUNT 

IlLOOP 



?| REPLACE TAB WITH SPACE 

1 1 TYPE A SPACE 

IfBRANCH IF NOT AT 

I I TAB STOP 

M POP SPACE OFF STACK 

IF GET NEXT CHARACTER 

;|WAIT UNTIL PRINTER IS READY 

fjLOAD CHAR TO BE TYPED INTO DATA REG* 

HIS CHARACTER A CARRIAGE RETURN? 

j f BRANCH if NO 

|»YES--CLEAP CHARACTER COUNT 

ffEXIT 

HIS CHARACTER A LINE FEED? 

IfBRANCH IF YES 

llCOUNT THE CHARACTER 

If CHARACTER COUNT STORAGE 



a SBTTL INTEGER MULTIPLY ROUTINE 



f f®«®# 
?®CALL 


&«####m####mm###mm#®»®»#'»*#«'* j 


1* 


MOV MULTIPLER,-(SPJ 


1* 


MOV MULTIPLICAND,»(SP3 


»» 


JSR PC»MtMULT 


1* 
I* 


RETURN n PRODUCT IS ON THE STACK 



>#*#«####«#«# 
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4970 






4971 






4972 






4973 






4974 






4975 


020500 




4976 


020500 


010046 


4977 


020502 


010146 


4978 


020504 


010246 


4979 


020506 


005046 


4990 


020510 


016601 000012 


4981 


020514 


100002 


4982 


020516 


005216 


4983 


020520 


005401 


4984 


020522 


016602 000014 


4985 


020526 


100002 


498b 


020530 


005316 


4987 


020532 


005402 


4988 


020534 


012746 000021 


4989 


020540 


005000 


4990 


02U542 


103001 


4991 


020544 


060200 


4992 


020546 


006000 


4993 


020550 


006001 


4994 


020552 


005316 


4995 


020554 


001372 


4996 


020556 


022616 


4997 


020560 


001403 


4998 


020562 


005400 


4999 


020564 


005401 


5000 


020566 


OQ5600 


5005 


020570 


005726 


5002 


020572 


010066 000012 


§003 


020576 


010166 000010 


5004 


020602 


012602 


5005 


020604 


012601 


5006 


020606 


012600 


5 007 


020610 


000207 


5 008 






5009 






5010 






501 1 






5012 






5<U3 


020612 


000000 


5014 


020614 


000000 


5 OS 5 


O20616 


000000 



STACK PRODUCT 



08803 PAGE 94 



JJPUSH RO ON STACK 

fjPUSH Rl ON STACK 

nPUSH R2 ON STACK 

nCLEAR THE SIGN KEY 

jfCEI THE MULTIPLICAND 

jlBR IF PLUS 

HSET THE SIGN KEY 

fjMAKE THE MULTIPLICAND POSTIVE 

IjGET THE MULTIPLIER 

I |BR IF PLUS 

nUPDATE THE SIGN KEY 

IjMAKE THE MULTIPLIER POSTIVE 

If SET THE LOOP COUNT 

M SETUP FOR THE MULTIPLY LOOP 

llDON'T ADD IF MULTIPLICAND s 

f {POSITION THE PARITIAL PRODUCT AND 

MTHE MULTIPLICAND 

IjHAS ALL BITS OF THE MULTIPLICAND BEEN DONE? 

||BR IF NO 

fjSHOULD PRODUCT BE NEGATIVE? 
|?GO TO EXIT IF NO 
l,YES«SO MAKE IT SO 



SiCLEAR SIGN INFO s OFF OF STACK 

?f PUT THE PRODUCT OH THE STACK CMSB*S) 

MLSB'S 

?}POP STACK INTO R2 

nPOP STACK INTO Rl 

tt POP STACK INTO RO 



9 SBTTL TTY INPUT ROUTINE 

a ENABL LSB 

$TKCNT? 8 WORD jjNUMBER OF ITEMS IN QUEUE 

STKQINs s WORD mINPUT POINTER 

ITKQQUTS ,W0RD jjOUTPUT POINTER 



TOP 


LSB'S 


4-2 


MSB'S 


MOV 


RO,-(SP) 


MOV 


R1,-(8P) 


MOV 


R2,«CSP) 


CLR 


-CSP) 


MOV 


I2CSP3#R1 


BPL 


11 


INC 


CSP3 


NEG 


Rl 


MOV 


I4CSP),R2 


BPL 


2$ 


DEC 


CSP) 


NEG 


R2 


MOV 


#17.#-(SP) 


CLR 


RO 


BCC 


48 


ADD 


R2,R0 


ROR 


RO 


ROR 


Rl 


DEC 


(SPJ 


BNE 


33 


CMP 


CSP3*,CSP) 


BEQ 


3$ 


NEG 


RO 


NEG 


Rl 


SBC 


RO 


TST 


CSPH 


MOV 


R0,12CSP) 


MOV 


RU10CSP3 


MOV 


CSP)+,R2 


MOV 


CSP)*,R1 


MOV 


(SP)+,RO 


RTS 


PC 



5 016 02062 000001 
5017 020621 

501 P 2 0622 



STKQSRTi 8 BLKB 1 

STKQEND= a 
S EVEN 



; ?TTY KEYBOARD QUEUE 



5019 
5 02 
5021 
5022 
5023 
502 4 
5025 



j*TK INITIALIZE ROUTINE 

f^THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 

j*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 

1 

J&CALL1 

I* JSR PC*$TKINT 
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5026 
5U27 
502S 
5029 
5 3 
5031 
5032 
5033 
5034 
5035 
503b 
5037 
5036 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5 051 
5052 
5 05 3 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5 061 
5062 
5063 
5064 
50&5 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5 8 
50P1 



020622 
020626 
2 0634 
020642 

020650 
020656 

020662 
0206^0 



005037 
012737 
0137J7 
012737 
012737 
005777 
012777 
000207 



020672 
020676 
020702 
020706 
020710 
020716 

020720 
O20720 

020726 
020730 
020734 
020736 
020740 
020744 
020746 
020752 
O207S4 
020760 
020762 
020766 
020772 
020776 
021000 
021006 
021010 
021014 
021020 
021022 
021026 
021030 
021034 
021040 
021044 
021052 
021054 
021062 



117746 
042716 
021627 
001004 
022737 
001500 



022737 
001004 
104401 
005726 
000451 
021627 
001021 
005077 
005726 
105777 
100375 
117746 
042716 
022627 
001366 
012777 
000002 
00523? 
021627 
002405 
021627 
003002 
042716 
112677 
005237 
023727 
001003 
012737 
000002 



020612 
020620 
020614 
020672 
000200 
160264 
000100 



160250 
177600 
000007 



020614 
020616 
000060 
000062 

160254 



$TKINT{ CLP 
MOV 
MOV 
MOV 
MOV 
TST 
MOV 
RTS 



000176 001140 



000001 020612 
001206 

000023 
160172 

160164 

160160 
177600 

000021 

000100 160136 

020612 
000140 

000175 

000040 
177554 
020614 
020614 020621 

020620 020614 



$TKCNT 

#8TKQSRT,$TKQIN 

$TKQIN»$TKQOUT 

#8TKSBVi 9ITKVEC 

#200,§#TKVEC+2 

§STKB 

8100,@$TKS 

PC 



MCLEAR COUNT OF ITEMS IN QUEUE 

fjMOVE THE STARTING ADDRESS OF THE 

f?QUEUE INTO THE INPUT & OUTPUT POINTERS^ 

J f INITIALIZE THE KEYBOARD VECTOR 

M"BR K LEVEL 4 

MCLEAR DONE FLAG 

M ENABLE TTY KEYBOARD INTERRUPT 

jfRETURN TO CALLER 



j*TK SERVICE ROUTINE 

j*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

?#BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

l#IT IN THE QUEUE S 



$TKSRV| 


MOVE 


i$TKB,-(SP) 


MPICKUP THE CHARACTER 




BIC 


#~C177»CSP) 


M STRIP THE JUNK 


1»I 


CMP 


CSP),#7 


j |IS IT A CONTROL G? 




BNE 


2S 


MBRANCH if NO 




CMP 


#SWPEG»SWR 


?fIS SOFT^SWR SELECTED? 




BEQ 


6$ 


r|GO TO SWR CHANGE 


2S? 










CMP 


#1,8TKCNT 


?f IS THE QUEUE FULL? 




BNE 


3S 


jjBRANCH IF NO 




TYPE 


f SB ELL 


If RING THE TTY BELL 




TST 


CSP3* 


MCLEAN CHARACTER OFF OF STACK 




BR 


5S 


mexit 


3§S 


CMP 


£SP),#23 


MIS IT A CONTROL-S? 




BNE 


328 


MBRANCH IF NO 




CLR 


§>$TKS 


MDISABLE TTY KEYBOARD INTERRUPTS 




TST 


CSP)* 


MCLEAN CHAR OFF STACK 


3191 


TSTB 


?$TKS 


MWAIT FOR A CHAR 




BPL 


318 


MLOOP UNTIL ITS THERE 




MOVE 


@8TKB f -CSP3 


MGET THE CHARACTER 




BIC 


*-C177.CSP) 


MMAKE IT 7-BIT ASCII 




CMP 


CSP)+f»2i 


MIS IT A CONTROL-Q? 




BNE 


31S 


MBRANCH IF NO 




MOV 


#1QO,@0TKS 


MREENABLE TTY KEYBOARD INTERRUPTS 




RTI 




? j RETURN 


32$! 


INC 


STKCNT 


MCOUNT THIS CHARACTER 




CMP 


(SP)##140 


MIS IT UPPER CASE? 




BLT 


4$ 


I jBRANCH IF YES 




CMP 


CSP), #175 


MIS IT A SPECIAL CHAR? 




BGT 


4$ 


MBRANCH IF YES 




BIC 


*40r(SP) 


mmake it upper CASE 


4.9 » 


MOVB 


CSP)+»9»TKQIN 


MAND PUT IT IN QUEUE 




INC 


ITKQIN 


MUPDATE THE POINTER 




CMP 


STKQlN f #$TKQEND 


MGO OFF THE END? 




B*!E 


5$ 


MBRANCH IF NO 




MOV 


#$TKQSRT,8TKQIN 


M RESET THE POINTER 


5«! 


RTI 




M RETURN 



I^SOFTWARE SWITCH REGISTER CHANGE ROUTINE s 
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5082 








5083 








§084 








5085 


021064 


02273? 


000176 


5086 


021072 


001104 




5087 


021074 


105777 


160044 


5088 


021100' 


100101 




5089 


021102 


117746 


160040 


5090 


021106 


042716 


177600 


5091 


021112 


021627 


' 000007 


5092 


021J16 


001300 




5093 








5094 








5095 








5096 








5097 








5098 








5099 


021120 


123727 


001134 


5100 


02H26 


001674 




5101 


02U30 


005726 




St 02 


021132 


004737 


020622 


5103 


021136 


005077 


160002 


5104 


02H42 


112737 


000001 


5105 








5106 


021150 


104401 


021727 


5107 


021154 


104401 


021734 


5108 


02U60 


013746 


000176 


5109 


021164 


104402 




5110 


02H66 


104401 


021745 


5111 


02H72 


005046 




5112 


021174 


005046 




5113 


021176 


105777 


157742 


5114 


021202 


100375 




5115 








5116 


021204 


117746 


157736 


5117 


021210 


042716 


177600 


51 18 








5119 








5120 








5121 


021214 


021627 


000025 


5122 


021220 


001005 




5123 


021222 


104401 


021722 


5124 


021226 


062706 


000006 


5125 


021232 


000757 




5126 








5127 








5128 


021234 


021627 


000015 


5129 


021240 


001022 




5130 


021242 


005766 


000004 


51 31 


021246 


001403 




5132 


021250 


016677 


000002 


5133 


021256 


062706 


000006 


5134 


021262 


104401 


001213 


5135 


021266 


1237.27 


001135 


5136 


021274 


001003 




5J37 


021276 


012777 


000100 



0OH4O 



001135 



157662 



157640 



iCKSWRi CMp 


#SWREG?SWR 


BNE 


15$ 


TSTB 


f«$TKS 


BPL 


138 


MQVB 


9$TKB,»(SP) 


BIC 


iTC177# (SP3 


CMP 


(SP3,#7 


BNE 


21 



?®ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
j#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
j*CALL WHEN OPERATING IN TTY INTERRUPT MODE s 

IJIS THE SOFT»SWR SELECTED 

MEXIT IF NOT 

MIS A CHAR WAITING? 

;>ir NOT, EXIT 

myes 

jfMAKE IT 7*»8IT ASCII 

MIS IT A CONTROLS? 

It If NOT, PUT IT IN THE TTY QUEUE 

HAND EXIT 

I >«###*#*##############*^###*^#«.##'»#«'###«.#^#«#«####«..»##»###«.«'##*# 
J&CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
I&ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
$#CONTROL«G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED,, 
"""" ~~~ " MARE WE RUNNING IN AUTOCODE? 
MBRANCH IF YES 
MCLEAR CONTROL-G OFF STACK 
MFLUSH THE TTY INPUT QUEUE 
MDISABLE TTY KEYBOARD INTERRUPTS 
MSET INTERRUPT MODE INDICATOR 

MECHO THE CONTROLS ( ra G) 

MTYPE CURRENT CONTENTS 

MSAVE SWREG FOR TYPEOUT 

MGa TYPE««-OCTAL ASCIICALL DIGITS) 

? fPROMPT FOR NEW SWR 

MCLEAR COUNTER 

; jTHE NEW SWR 

MCHAP THERE? 

11 If NOT TRY AGAIN 

MPICK UP CHAR 
MMAKE IT 7-BIT ASCII 



f f IS IT A CONTFOL-U? 

; jBRANCH IF NOT 

MYES, ECHO CONTROL-U C"U) 

MlGNORE PREVIOUS INPUT 

t pLET'S TRY IT AGAIN 



ss* 


CMPB 


IAUTOB»*i 




BEQ 


2$ 




TST 


CSP3* 




JSP 


PC,$TKINT 




CLR 


90TKS 




MOVB 


*1#«INTAG 




TYPE 


,SCNTLG 


iGTSWRf 


TYPE 


,$MSWR 




MOV 


SWREG, -CSP3 




TYPOC 






TYPE 


,smnew 


19SI 


CLR 


«(SPJ 




CLP 


-(SP) 


7$! 


TSTB 


iSTKS 




BPL 


7S 




MOVB 


§$TKB,-(SP) 




BIC 


f ra C177,CSP3 


9SS 


CMP 


(Sp},«5 




BNE 


ios 




TYPE 


,^CNTLU 


20S? 


ADD 


#6,SP 




BR 


19S 


10$! 


CMP 


fSP),#15 




BNE 


16$ 




TST 


4(SP3 




BEQ 


•IIS 




MOV 


2CSP},PSWR 


list 


ADD 


#6,SP 


14$? 


TYPE 


,$CRLF 




CMPB 


$INTAG,#1 




BNE 


15S 




MOV 


8lQ0,*PSTKS 



IS IT A <CR>? 

BRANCH IF NO 

YES, IS IT THE FIRST CHAR? 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO «CR> AND <LF> 

RE«-ENABLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE»ENABLE TTY KBD INTERRUPTS 
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5138 


021304 


000002 




5139 


021306 


004737 


020430 


5140 


021312 


021627 


000060 


5141 


021316 


OQ2420 




5142 


021320 


021627 


000067 


5143 


021324 


003015 




5144 


021326 


042726 


000060 


5145 


021332 


00S766 


000002 


5146 


021336 


001403 




5147 


0213 40 


006316 




5148 


02S342 


006316 




5149 


021344 


006316 




5150 


021346 


005266 


000002 


5151 


021352 


056616 


177776 


5152 


021356 


000707 




5153 


021360 


104401 


001212 


5154 


021364 


000720 




5155 








5156 








5157 








5158 








5159 








5160 








516! 








5162 








5163 








5164 








5165 








5166 


021366 


011646 




5167 


021370 


016666 


000004 


5168 


021376 


005066 


000004 


5169 


021402 


005046 




5170 


021404 


012746 


021412 


5171 


021410 


000002 




5172 


021412 






5173 


021412 


005737 


020612 


S174 


021416 


001771 




5175 


021420 


005337 


020612 


5176 


021424 


117766 


177166 


5177 


021432 


00S237 


020616 


5178 


021436 


023727 


020616 


5179 


021444 


001003 




5180 


021446 


012737 


020620 


5181 


021454 


000002 




5182 








5183 








5184 








5185 








5186 








5187 








5188 








5189 


021456 


010346 




5190 


021460 


005046 




5191 


021462 


012703 


021712 


5192 


021466 


022703 


021722 


5193 


021472 


101456 





1591 

16$s 



020621 



a DSABL 



RTI 

JSR 

CMP 

BLT 

CMP 

BGT 

BIC 

TST 

BEQ 

ASL 

ASL 

ASL 

INC 

BIS 

BR 

TYPE 

BR 

LSB 



PC,STYPEC 
(SP3,#60 
18$ 
CSP),#67 

tag 

#60* (SP3+ 

2CSP) 

17$ 

CSP3 

(SP) 

CSP3 

2CSP3 

-2(SP3,CSP) 

78 

,$QUES 

20$ 



RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 

CHAR > 7? 

BRANCH IF YES 

STRIP-OFF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO, SHIFT PRESENT 

CHAR OVER TO MAKE 
ROOM FOR NEW QNE„ 

KEEP COUNT OF CHAP 

SET IN NEW CHAR 

GET THE NEXT ONE 

TYPE ?<CRXLF> 

SIMULATE CONTROL-U 



j#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

?#CALLs 

»* RDCHR mGET A CHARACTER FROM THE QUEUE 

j# RETURN HERE - mCHARACTER IS ON THE STACK 

f # M W ITH PARITY BIT STRIPPED OFF 

I 

fPUSH DOWN THE PC AND 
fTHE PS 

fGET READY FOR A CHARACTER 
?PUT NEW PS ON STACK 
fPUT NEW PC ON STACK 
fPOP NEW PC AND PS 

?WAXT ON A CHARACTER 

fDECREMENT THE COUNTER 

*GET ONE CHARACTER 

JUPDATE THE POINTER 

MD1D IT GO OFF OF THE END? 

jBRANCH IF NO 

MRESET THE POINTER 

JRETURN 

G FROM THE TTY 

I INPUT A STRING FROM THE TTY 

fADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

fTERMINATOR WILL BE A BYTE OF ALL O'S 



SRDCH 


Rl MOV 


CSP),«CSP3 j 




MOV 


4CSP3*2CSP3 s 




CLR 


4CSP) f 




CLR 


«CSP3 




MOV 


#64S,-CSP3 t 




RTI 


t 


64$s 






111 


TST 


8TKCNT | 




BEQ 


18 




DEC 


STKCNT j 




MOVB 


@$TKQ0UT,4£SP) ? 




INC 


ITKQOUT ; 




CMP 


$TKQOUT,ggTKQEND 




BNE 


2$ 




MOV 


#$TKQSRT,8TKQ0UT 


26$ 


RTI 


? 



j#THIS ROUTINE WILL INPUT A STRIN 

f^CALLi 

5# RDLIN 

j* RETURN HERE 



SRDLINi MOV 
CLR 

111 MOV 
2$i CMP 
BLOS 



R3,™CSP3 
-(SP) 

#STTYIN,R3 

#$TTYIN*8„,R3 

4g 



MSAVE R3 

MCLEAR THE RUBOUT KEY 
I fGET ADDRESS 
MBUFFER FULL? 
MBR IF YES 
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5194 


021474 


104410 








RDCHR 


5195 


021476 


112613 








MOVB 


5196 


021500 


122713 


000177 




10$t 


CMPB 


5197 


021504 


001022 








BNE 


5196 


021506 


005716 








TST 


5199 


021510 


001007 








BNE 


5200 


021512 


112737 


000134 


021710 




MOVB 


5201 


021520 


104401 


021710 






TYPE 


5202 


021524 


012716 


177777 






MOV 


5203 


021530 


005303 






6S| 


DEC 


5204 


021532 


020327 


021712 






CMP 


5205 


021536 


103434 








BLO 


5206 


021540 


111337 


021710 






MOVB 


5207 


021544 


104401 


021710 






TYPE 


5208 


021550 


000746 








BR 


5209 


021552 


005716 






5SI 


TST 


5210 


021554 


001406 








BEG 


5211 


021556 


112737 


000134 


021710 




MOVB 


5212 


021564 


104401 


021710 






TYPE 


5213 


021570 


005016 








CLP 


5214 


021572 


122713 


000025 




781 


CMPB 


5215 


021576 


001003 








BNE 


5216 


021600 


104401 


021722 






TYPE 


5217 


021604 


000726 








BR 


521@ 


021606 


122713 


000022 




ess 


CMPB 


5219 


021612 


ooion 








BNE 


5220 


021614 


105013 








CLRB 


5221 


021616 


104401 


001213 






TYPE 


5222 


021622 


104401 


021712 






TYPE 


5223 


021626 


000717 








BR 


5224 


^21630 


104401 


001212 




4Si 


TYPE 


5225 


021634 


000712 








BR 


5226 


021636 


111337 


021710 




3S| 


MOVB 


5227 


021642 


104401 


021710 






TYPE 


5228 


"21646 


122723 


000015 






CMPB 


5229 


021652 


001305 








BNE 


5230 


021654 


105063 


177777 






CLRB 


5231 


021660 


104401 


001214 






TYPE 


5232 


021664 


005726 








TST 


5233 


021666 


012603 








MOV 


5234 


021670 


0116 46 








MOV 


5235 


021672 


016666 


000004 


000002 




MOV 


5236 


021700 


012766 


021712 


000004 




MOV 


5237 


O21706 


000002 








RTI 


5238 


021710 


000 






9S8 


BYTE 


5239 


021711 


000 








.BYTE 


5240 


021712 


000010 






$TTYlNt 


8 BLKB 


5241 


021722 


052536 


005015 


000 


SCNTLUs 


9 ASCIZ 


5242 


021727 


136 


006507 


000012 


$CNTLGi 


9 ASCIZ 


5243 


0217 34 


005015 


053523 


020122 


IMSWRs 


9 ASCIZ 


5244 


021742 


020075 


000 








5245 


021745 


040 


047040 


053505 


SMNEWs 


9 ASCIZ 


5246 


021752 


036440 


000040 








5247 














5248 










„SBTTL 


READ A 


5249 















CSPH,(R3) 

#177* (R3) 

5$ 

CSP) 

68 

»'\,93 

#9$ 

#-l#(SP) 

R3 

R3,#$TIYIN 

4g 

CR33s-9$ 

,9$ 

2$ 

CSP3 

7$ 

#*S,9$ 

,9$ 

(SP3 

«25»CR3) 

80 

,SCNTLU 

«2»CR3) 

3$ 

CR33 

,$CRLF 

,STT¥IM 

2$ 

,§GU£S 

1$ 

{R33,9§ 

,9$ 

•15#(R3)+ 

2S 

-1(P3) 

#SLF 

(5P) + 

CSP)+ # R3 

(BP)r-(SPJ 

4(SP)*2CSP3 

#$TTYXN,4CSP3 



/■*G/<i5><l2> 

<15><12>/SWR 



jjGO READ ONE CHARACTER FROM- THE TTY 

MGET CHARACTER 

f pIS IT A RUBOUT 

5JSBR IF NO 

ff IB THIS THE FIRST RUBOUT? 

;|BR IF NO 

; I TYPE A BACK SLASH 

PfSET THE RUBOUT KEY 

j»BACKUP BY ONE 

IfSTACK EMPTY? 

j»BR IF YES 

n SETUP TO TYPEOUT THE DELETED CHAR 8 

yiGO TYPE 

;fGU READ ANOTHER CHAR e 

fjRUBOUT KEY SET? 

; ?BR IF NO 

I jTYPE A BACK SLASH 



It 



CLEAR THE RUBOUT KEY 

IS CHARACTER A CTRL U? 

BR IF NO 

TYPE A CONTROL "U H 

GO START OVER 

IS CHARACTER A ""p"? 

BRANCH IF NO 

CLEAR THE CHARACTER 

TYPE A "CR* & "LF« 

TYPE THE INPUT STRING 

GO PICKUP ANOTHER CHACTER 

TYPE A *?• 

CLEAR THE BUFFER AND LOOP 

ECHO THE CHARACTER 



J f CHECK FOR RETURN 

;?LOOP IF NOT RETURN 

jjCLEAR RETURN (THE 15) 

; jTYPE A LINE FEED 

ff CLEAN RUBOUT KEY FROM THE STACK 

;t RESTORE R3 

j J ADJUST THE STACK AND PUT ADDRESS OF THE 

it FIRST ASCII CHARACTER ON IT 

; ? RETURN 

??STORAGE FOR ASCII CHAR e TO TYPE 

j f TERMINATOR 

', PRESERVE 8 BYTES FOR TTY INPUT 
jfCONTROL "U" 
nCONTROL 8 5 9 
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5250 






5251 






5252 






5253 






5254 






5255 






5256 






5257 






5258 


021756 


011646 


5259 


021760 


016666 000004 


5260 


021766 


010046 


5261 


021770 


010146 


5262 


021772 


010246 


5263 


0217 74 


104411 


5264 


021776 


012600 


5265 


022Q00 


005001 


5266 


022002 


005002 


5267 


022004 


112046 


5268 


022006 


001412 


5269 


022010 


006301 


5270 


022012 


006102 


5271 


022014 


006301 


5272 


022016 


006102 


5273 


022020 


006301 


5274 


022022 


006102 


5275 


"22024 


042716 177770 


5276 


022030 


062601 


5277 


022032 


000764 


5278 


022034 


005726 


5279 


022036 


010166 000012 


5280 


022042 


010237 022056 


5281 


022046 


012602 


5282 


022050 


012601 


5283 


022052 


012600 


5284 


022054 


000002 


5285 


022056 


000000 


5286 






5287 






5288 






5289 






5290 






5291 






5292 






5293 






5294 






5295 






5296 






5297 






5298 






5299 






5300 






5301 






5302 






5303 






5304 






5305 







1 1 #######■&####&######»####«&&###«#####.### ###«.«■#««•###•».»#.»#.&##### 

jfcTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

t^CHANGE IT TO BINARY S 

f&CALLi 

f* RDOCT j&READ AN OCTAL NUMBER 

j* RETURN HERE fjLOW ORDER BITS ARE ON TOP OF THE STACK 

I* j|HIGH ORDER BITS APE IN $HIOCT 

MPBOVIDE SPACE FOR THE 

? ?INPUT NUMBER 

;»PUSH RO ON STACK 

? J PUSH R| ON STACK 

jjPUSH R2 ON STACK 

j | READ AN ASCIZ LINE 

jfGET ADDRESS OF 1ST CHARACTER 

?jCLEAR DATA WORD 

jiPICKUP THIS CHARACTER 
? ? IF ZERO GET OUT 
J»*2 



SRDOCTt 


MOV 


CSP3 ? »»CSP) 




MOV 


4(SP),2CSP) 




MOV 


R0 ? -CSP3 




MOV 


R1,-CSP) 




MOV 


R2 r -CSP} 


181 


RDL1N 






MOV 


CSP3*,R0 




CLR 


Rl 




CLR 


R2 


2$s 


MOVB 


(BO)+»-(SP) 




BEQ 


3$ 




ASL 


Rl 




ROL 


R2 




ASL 


Rl 




ROL 


R2 




ASL 


Rl 




ROL 


R2 




BIC 


# ffl C7,CSP3 




ADD 


CSP)**Ri 




BR 


2$ 


3Ss 


TST 


CSP)* 




MOV 


Ri»12CSP) 




MOV 


R2 # $HIOCT 




MOV 


CSP)* # R2 




MOV 


CSP)*,R1 




MOV 


CSP)4*RQ 




RTI 




$HIOCTj 


8 WQRD 






JISTRIP THE ASCII JUNK 
If ADD IN THIS DIGIT 

?fL0OP 

MCLEAN TERMINATOR FROM STACK 

MSAVE THE RESULT 

riPOP STACK INTO R2 

nPOP STACK INTO Pi 

??POP STACK INTO RO 

ft RETURN 

MHIGH ORDER BITS GO HERE 

B SBTTL BINARY TO OCTAL CASCII3 AND TYPE 

y»THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S^DIGIT 

J&OCTAL (ASCII) NUMBER AND TYPE IT. 

l*$TXPOS—ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

f&CALLi 

NUM f »CSP) IJNUMBEP TO BE TYPED 
MCALL FOR TYPEOUT 

N MN«1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

m nM«i OR o 

||l*TYPE LEADING ZEROS 
jfO>SUPPRESS LEADING ZEROS 

I* 

|#»TYPON«—ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

f^STYPOS OR $TYPQC 

?®CALL§ 

I* MOV NUM»«(SP) ffNUMBER TO BE TYPED 

I* TYPON jfCALL FOR TYPEOUT 



I* 


MOV 


»* 


TYPOS 


1* 


S BYTE 


1* 


e BYTE 


»» 




1* 
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5306 








»• 








§307 








»*»TYPOC— ENTER HERE FOB TYPEOUI OF A 16 BIT NUMBER 


§308 








?®Chhhl 








§309 








$® 


MOV 


NUM»®»CSP) 


If NUMBER TO BE TYPED 


§310 








I* 


TYPOC 




IfCALL FOR TYPEOUT 


§311 
















S312 


022060 


017646 


000000 


gTYPOSl 


MOV 


§{gP),-CSP} 


If PICKUP THE MODE 


5313 


022064 


116637 


000001 022303 




MOVB 


l(SP)f§OFILL 


j 1 LOAD ZERO FILL SWITCH 


S314 


022072 


112637 


022305 




MOVE 


(SP>*,»0M0DE+1 


jpNUMBER OF DIGITS TO TYPE 


5315 


022076 


062716 


000003 




ADD 


#2*CSP) 


fjADJUST RETURN ADDRESS 


5316 


022J02 


000406 






BR 


ITYPON 




531? 


022104 


S 12737 


000001 022303 


ITYPOCI 


MOVB 


#!,®OFXLL 


fjSET THE ZERO FILL SWITCH 


53IS 


022112 


112737 


000006 022305 




MOVB 


#'6,$0M0DE+1 


IfSET FOR SIXC63 DIGITS 


5319 


022120 


112737 


000005 022302 


STYPONI 


MOVB 


#5,S0CNT 


IfSET THE ITERATION COUNT 


5320 


022126 


010346 






MOV 


R3,-CSP3 


MSAVE R3 


5321 


022130 


010446 






MOV 


R4,«*(SP) 


fjSAVE R4 


5 322 


022132 


010546 






MOV 


R5,«(SP) 


??SAVE R5 


5323 


022|34 


113704 


022305 




MOVB 


$0M0DE+lyR4 


MGET THE NUMBER OF DIGITS TO TYP8 


5324 


022140 


005404 






NEG 


R4 




5325 


022142 


062704 


000006 




ADD 


«6,R4 


IfSUBTRACT IT FOR MAX 8 ALLOWED 


5326 


022146 


110437 


022304 




MOVB 


P4,S0MGDE 


IjSAVE IT FOR USE 


5327 


022152 


113704 


022303 




MOVB 


$0FILL,R4 


IfGET THE ZERO FILL SWITCH 


5328 


022156 


016605 


000012 




MOV 


12(SP) # R5 


MPICKUP THE INPUT NUMBER 


5329 


022162 


005003 






CLP 


R3 


jjCLEAR THE OUTPUT WORD 


5330 


022164 


006105 




181 


ROL 


R5 


IjROTATE MSB INTO H C" 


5 331 


022166 


000404 






BR 


38 


1 jGO DO MSB 


5332 


022170 


006105 




26 3 


ROL 


R5 


;»FORM THIS DIGIT 


5333 


022172 


006105 






ROL 


R5 




5334 


022174 


006105 






ROL 


R5 




5335 


022176 


010503 






MOV 


R§,,R3 




5336 


022200 


006103 




311 


ROL 


R3 


IfGET LSB OF THIS DIGIT 


5337 


022202 


105337 


022304 




DECB 


gOMQDE 


fjTYPE THIS DIGIT? 


5338 


022206 


100016 






BPL 


7S 


fjBP IF NO 


5339 


022210 


042703 


177770 




BIC 


#177770*R3 


IfGET RID OF JUNK 


5340 


022114 


001002 






BNE 


41 


; fTEST FOR 


5341 


022216 


0057 04 






1ST 


R4 


; ^SUPPRESS THIS 0? 


5342 


022220 


001403 






BEQ 


SS 


1 j BR IF YES 


5343 


022222 


005204 




4@i 


INC 


R4 


nDON'T SUPPRESS ANYMORE 0*5 


5344 


022224 


052703 


000060 




BIS 


#'0»R3 


f ?MAKE THIS DIGIT ASCII 


5345 


022230 


052703 


000040 


5S8 


BIS 


#' *R3 


j } MAKE ASCII IF NOT ALREADY 


5346 


022234 


110337 


0223O0 




MOVB 


R3,8I 


j jSAVE FOR TYPING 


5347 


022240 


104401 


022300 




TYPE 


,8$ 


1 jGO TYPE THIS DIGIT 


5348 


022244 


105337 


022302 


7SS 


DF.CB 


SOCNT 


? jCOUNT BY 1 


5349 


022250 


003347 






BGT 


2$ 


j ?BR IF MORE TO DO 


5350 


022252 


002402 






BLX 


6$ 


fjBR IF DONE 


5351 


022254 


005204 






INC 


R4 


jflNSURE LAST DIGIT ISN'T A BLANK 


5352 


022256 


000744 






BR 


2$ 


IjGO DO THE LAST DIGIT 


5353 


022260 


012605 




6SS 


MOV 


CSP)+,R5 


f I RESTORE R5 


5354 


022262 


012604 






MOV 


(SP)*rR4 


H RESTORE R4 


5355 


022264 


012603 






MOV 


CSP)+,P3 


If RESTORE R3 


5356 


022266 


016666 


000002 000004 




MOV 


2<SP),4CSP) 


USET THE STACK FOR RETURNING 


5357 


022274 


012616 






MOV 


CSP)*,CSP) 




5358 


022276 


000002 






RTI 




II RETURN 


5359 


022300 


000 




8S8 


*8YTE 





?f STORAGE FOR ASCII DIGIT 


5360 


022301 


000 






a BYTE 





IfTERMINATOR FOR TYPE ROUTINE 


5361 


022302 


000 




SOCNTs 


9 8YTE 





If OCTAL DIGIT COUNTER 



) 
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5362 
5363 

5364 
5365 
5366 

5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
53§2 
3383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5 4 05 
5406 
5407 
§408 
5409 
5410 
5411 
5412 
5413 
S414 
§415 
5416 
5417 



022303 
022304 



000 
000000 



022306 
022314 
022320 



016637 000004 
012746 022346 
004737 022506 



022330 
022336 
022342 
022344 



016666 
011666 
005726 
000002 



022352 
022354 
022360 
022362 
022364 
022370 
022372 
022374 
022400 
022402 
022404 
022406 
022410 



022346 



022324 004737 022352 



000002 
000002 



022348 000000 000000 



010046 
016600 
105710 
001403 
122720 
001773 
005300 
010037 
104401 
000000 
012600 
012616 
000207 



IOFILLS S BYTE 
S0M0DE8 8 W0RD 



I I ZERO FILL SWITCH 
IfNUMBER OF DIGITS TO TYPE 



8 SBTTL TYPDSS - TYPE DECIMAL, LEADING ZEROES SUPPRESSED 
jIYPDSS 

jROUTINE FOR TYPING OUT DECIMAL NUMBERS, LEADING O'S ARE SUPPRESSED 
fTHE NUMBER IS LEFT JUSTIFIED 8 NOTE THE 16 BIT BINARY NUMBER SHOULD 
|BE POSITIVE CBIT 15s Q) s 

fCALLs MOV NUMBER, -(SP) '|PUT BINARY NUMBER ON STACK 
j TYPDSS | GO TYPE DECIMAL 



TYPDES8 MOV 
MOV 
JSR 



MOV 
MOV 
1ST 
RTI 



4(SP)#1S 

#i*#-csp) 

PC r g#SDB2D 

PC,§#gSUPRS 

2CSP)*4CSP) 

(SP),2CSP3 

(SPH 



fGET THE NUMBER 

fPUT PTR ON THE STACK 

jGO CONVERT BINARY NO, TO 

fASCII STRING 

jGO TYPE OUT DECIMAL STRING 

fSUPRESING LEADING 0*S 

jADJUST RETURN 

| ADJUST RETURN ADRES 

j POP STACK 

pPETURN 



8 SBTTL TYPE NUMERICAL ASCXZ STRING -SUPPRESS LEADING ZEROS 

l«THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 

»*IiEADING NUMBERS,, 

j^CALL 

I* MOV #NUMADR,«CSP) fjFIRST ADDRESS OF ASCIZ STRING 

f* JSR PC,@#S8UPRS 



IfSAVE RO 

IfPICKUP THE POINTER 

jjTERMINATEOR? 

jfBR IF YES 

ffIS THIS AN ASCII "0" ? 

fjBR IF YES 

IfBACKUP BY "1" 

HSAVE fO R TYPING 

I j GO TYPE 

IfASCIZ POINTER GOES HERE 

I j RESTORE RO 

fjRESTORE THE STACK 

If RETURN 



$SUPRSl 


MOV 


RO,«£SP) 




MOV 


4(SP),R0 


1*1 


TSTB 


CRO) 




BEQ 


2® 




CMPB 


»'0»(F0)+ 




BEQ 


1$ 


2$1 


DEC 


R0 




MOV 


R0,3§ 




TYPE 




3*1 


s WORD 







MOV 


£SP3*,R0 




MOV 


(SP)*,CSP3 




RTS 


PC 


sSBTTL 


SAVE AMD RESTORE R 


f 1*®*®* 




#######«### 


IFSAVE 


R0««R5 




?®CALLs 






»• 


SAVREG 





##«##&«'##&«#«•«"»##&&##### 



MD«-ii«DZRKL«£» RKU-FK05 DYNAMIC 'TEST 
DZPKLE g P11 26*sAPR»*77 12S37 



§418 








5419 








5420 








5421 








5422 








5423 








5424 








5425 








5426 








§427 








5428 








5429 


022412 






5430 


022412 


010046 




5431 


022414 


010146 




5432 


022416 


010246 




5433 


022420 


010346 




5434 


022422 


010446 




5435 


022424 


010546 




5436 


022426 


016646 


000022 


543? 


022432 


016646 


000022 


5438 


022436 


016646 


000022 


5439 


022442 


016646 


000022 


5440 


022446 


000002 




5441 








5442 








5443 








5444 








5445 


022450 






5446 


022450 


012666 


000022 


544? 


022454 


012666 


000022 


5446 


022460 


032666 


000022 


5449 


022464 


012666 


000022 


5450 


022470 


0126 05 




5451 


022472 


012604 




5452 


022474 


012603 




5453 


022476 


012602 




5454 


022500 


012601 




5455 


022502 


012600 




5456 


022504 


000002 




5457 








5458 








5459 








5460 








5461 








5462 








5463 








5464 








54b5 








5466 








5467 








5468 








5^69 








5470 








547! 


022506 


104413 




54/2 


022510 


016602 


000002 


547 3 


022514 


01 27 00 


022666 
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SAVE AND RESTORE RQ-RS ROUTINES 

j*UPON RETURN FROM 8SAVREG THE STACK WILL LOQk'lIKEs 

|# 

j#TOP«««»(«s-16 5 

f« + 4"«R5 
j® + 6* S ,» S R4 

f # + 8«®«">»R3 
t#+iO*--P2 
j#+12-*-Rl 
f ♦*14 — -RO 



It PUSH RO ON STACK 

MPUSH PI ON STACK 

j f PUSH R2 ON STACK ■ 

nPUSH R3 ON STACK 

1 >PUSH P4 ON STACK 

j j PUSH R5 ON STACK 

fjSAVE PS OF MAIN FLOW 

IJSAVE PC OF MAIN FLOW 

MSAVE PS OF CALL 

MSAVE PC OF CALL 



j jRESTORE PC OF CALL 

I jRESTORE PS OF CALL 

H RESTORE PC OF MAIN FLOW 

jfRESTORE PS OF MAIN FLOW 

IJPOP STACK INTO R5 

jjPOP STACK INTO P4 

', jPOP STACK INTO R3 

;?POP STACK INTO P2 

; jPOP STACK INTO Rl 

j l POP STACK INTO RO 



9 SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

j I ###»###*»#««#*#########*#####»##»*###*«'*»«■##•«•#»■»«''»***«■#**«'*«•*«» 
?#THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
;*DECTMAL (ASCII) NUMBER e THE SIGN OF THE BINARY NUMBER MUST BE 
j*POSITIVE 8 



gSAVREG 








MOV 


RO,°°CSP) 




MOV 


RJ,-(SP) 




MOV 


F2,-(SP) 




MOV 


R3,-(SP3 




MOV 


R4,-(SP) 




MOV 


R5,«(SP) 




MOV 


22(SP3,«(SP) 




MOV 


22(SP3*»CSP3 




MOV 


22(SP3»"»(SP) 




MOV 


22(SP3,-CSP) 




RTI 




j#RESTOPE RO«»R§ 




f^CALL? 






j* 


RESREG 




SRESREG 


I 






MOV 


(SP)*,22(SP) 




^OV 


CSP3*,22(SP3 




MOV 


(6P3*,22CSP3 




MOV 


CSP3*,22(SP3 




MOV 


CSP3*»R5 




MOV 


(5P3*,R4 




MOV 


(SP)+,R3 




MOV 


CSP)*,R2 




MOV 


(SP3+fRl 




MOV 


(Sp)+#RO 




RTI 





j#CALL 



MOV #PNTR,«(SP3 

JSR PC9I8PB2D 

RETURN 



SAVREG 

MOV 2CSP)»R2 

MOV 8SDECVL*R0 



; I POINTER TO LOW WORD OF BINARY NUMBER 



j?THE FIRST ADDRESS OF ASC1Z 
5? IS ON THE STACK 



? ?SAVE REGISTERS 

;?PICKUP THE DATA POINTER 

? jG£T ADDRESS OF "$DECVL H STRING 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 



5474 


022520 


010066 000002 


5475 


022524 


012201 


5476 


022526 


012202 


5477 


022530 


012737 000012 


5478 


022536 


012704 022616 


5479 


022542 


012705 022620 


5480 


022546 


005003 


548 1 


2 2550 


161401 


5482 


022552 


005602 


5463 


022554 


161502 


54B4 


"22556 


002402 


5485 


022560 


005203 


5486 


022562 


000772 


5487 


022564 


062401 


548P 


022566 


005502 


5489 


022570 


062402 


5490 


022572 


022525 


5491 


022574 


052703 000060 


5492 


022600 


110320 


5493 


022602 


005327 


5494 


022604 


000000 


5*95 


022606 


001357 


5496 


022610 


105020 


5497 


022612- 


104414 


5498 


022614 


000207 


5499 


022616 


145000 


5500 


022620 


035632 


5501 


022622 


160400 


5502 


022624 


002765 


5503 


022626 


133200 


5504 


022630 


000230 


5505 


022632 


041100 


55 06 


022634 


000017 


5507 


022636 


103240 


5508 


022640 


00000! 


5509 


022642 


023420 


5510 


022644 


000000 


5511 


022646 


001750 


551? 


O22&50 


000000 


55*3 


022652 


000144 


5514 


022654 


000000 


5515 


022656 


000012 


5516 


022660 


000000 


5517 


022662 


000001 


5518 


022664 


000000 


5519 


022666 


000014 


5520 






5521 






5522 






5523 






5524 






5525 






S5?6 






5527 






§528 






5529 







022604 





MOV 


RQ,2(SP) 


;»PUT ADDRESS OF ASCIZ STRING ON SI 




MOV 


CF2)*»R1 


;?PICKUP THE BINARY NUMBER 




MOV 


CR2)+*R2 






MOV 


#J0»,4S 


,'jSET UP TO DO 10 CONVERSIONS 




MOV 


SSTNPWR,R4 


fjADDRESS OF TEN POWER 




MOV 


»STNPWR+2»R5 




1SI 


CLR 


R3 


nCLEAR PARTIAL 


2S5 


SUB 


(R43 ? R1 


jjSUBTRACT TEN POWER 




SBC 


R2 






SUB 


<RS3»R2 






BLT 


3$ 


;;BR IF TEN POWER TO LARGE 




INC 


R3 


fjADD 1 TO PARTIAL 




BR 


2% 


f 5L00P 


l%% 


ADD 


(R4)+#R1 


M RESTORE SUBTRACTED VALUE 




ADC 


R2 






ADD 


(R4)+,R2 






CMP 


CR5)*,CR53* 


SjMQVE TO NEXT TEN POWER 




BIS 


# S 0»R3 


jjCHANGE PARTIAL TO ASCII 




MOVB 


R3,CRQ3+ 


IjSAVE IT 




DEC 


CPC3* 


; jDONE? 


4SS 


a WORD 









BNE 


IS 


jjBR IF NO 




CLRB 


(RQ3 + 


^TERMINATOR 




RESREG 




II RESTORE REGISTERS 




RTS 


PC 


SfRETURN 


STNPWPj 


145000 
35632 




JI1.0E09 




160400 




;M.0E08 




2765 








113200 




S jl«0E07 




230 








041100 




M1.0E06 




17 








103240 

1 

23420 



1750 



144 



12 



1 




j|l„0E05 






M1.0E04 






JI1.0E03 






H1.0E02 






Ml.OEOl 






f |l 8 OEO0 


SDECVLl 




8 BLKB 


12, 


H RESERVE STORAGE FOR ASCIZ STRING 


a SBTfL 


TRAP DECODER 





1 }#^#»#-9#*###»#^####*######**«»«»##^^###^«'##*#####«'##»#»®«'####*#« 

SETHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE «TRAP® INSTRUCTION 

?#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

f#OF THE DESIRED RQUIINE 8 THEN USING THE ADDRESS OBTAINED IT WILL 
}#G0 TO THAT ROUTINE,, 



MD^il^DZRKl^E, RKI1«RK0S DYNAMIC TEST 
DZRKLE.PH 26«APP«77 12127 



MACYil 30U046) 14«*JUL<«77 08103 PAGE 104 
TRAP DECODES 



5530 






5531 


022702 


010046 


S532 


022704 


016600 


5533 


022710 


005740 


S534 


022712 


111000 


3535 


022714 


006300 


5536 


022716- 


016000 


5537 


022722 


000200 


5538 






5539 






5540 






5541 






5542 


022724 


011646 


5543 


022726 


016666 


5544 


022734 


000002 


5545 






5546 






5547 






5548 






5549 






5550 






5551 






5552 






5553 


022736 


022724 


5554 


0227 40 


020260 


5555 


022742 


022104 


5536 


022744 


022060 


5557 


022746 


022120 


5558 


022750 


O2O034 


5559 






5560 


022752 


021154 


5561 






5562 


022754 


021064 


5563 


022756 


021366 


5564 


022760 


021456 


5565 


022762 


021756 


5566 


022764 


022412 


5567 


022766 


022450 


5568 






5569 


022770 


016602 


5570 






5571 


022772 


016470 


5572 






55 7 3 


022774 


016044 


5574 






5575 


022776 


016106 


5576 






5577 


023000 


016620 


5578 






5579 


023002 


016716 


5580 






5581 


023004 


016514 


5582 






55 e 3 


023006 


022306 


5584 






5585 







STRAPS 



MTHIS IS USE TO HANDLE THE "GETPRI" macro 



MOV 


R0,«(SP) 


jjSAVE RO 


MOV 


2fSP3?P0 


j?GET TRAP ADDRESS 


tst 


•»(R0) 


nBACKUP BY 2 


MOVB 


CR0)*R0 


fjGET RIGHT BYTE OF TRAP 


A8L 


RO 


,'}POSITION FOR INDEXING 


MOV 


gTRPAD(RQ),RO 


?> INDEX TO TABLE 


RTS 


RO 


?f GO TO ROUTINE 



§TRAP2? 


MOV 


CSP),<*(SP) 


JlHOVE THE PC DOWN 




MOV 


4CSP)*2CSP) 


IfMOVE THE PSW DOWN 




BTI 




fjRESTORE THE PSW 



9 SBTTL TRAP TABLE 

j#THXS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
j#BY THE «TRAP« INSTRUCTION, 

I ROUTINE 



gTRPADl B WORD 
STYPE 



$TRAP2 
jfCALLisTYPE 

STYPOC pjCALLaTYPOC 

STYPOS nCALLsTYPOS 

STYPON nCALLsTYPON 

STYPDS jfCALLsTYPDS 

SGTSWR nCALL»GTSWp 

SCKSWR HCALLsCKSWR 

SRDCHR fjCALLsRDCHR 

8RDLIN jjCALLbRDLIN 

8PD0CT HCALLsRDOCT 

SSAVREG nCALLsSAVREG 

$RESREG MCALLsRESREG 



TRAP+K104401) TTY TYPEOUT ROUTINE 

TRAP*2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS} 

TRAP+3C104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP*4C 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

TRAP+5C104405) TYPE DECIMAL NUMBER (WITH SIGN) 

TRAP«§-6( 104406) GET SOFT»»SWP SETTING 

TRAP*7(104407) TEST FOP CHANGE IN SOFT»SWR 

TPAP+10C104410) TTY TYPEIN CHARACTER ROUTINE 

TRAP+11C104411) TTY TYPEIN STRING ROUTINE 

TRAP+12(104412) PEAD AN OCTAL NUMBER FROM TTY 

TPAP+13C104413) SAVE R0-R5 ROUTINE 

TRAP+14C104414) RESTORE R0»P5 ROUTINE 



CN 9 RST nCALL«CON,PESET TRAP+15( 104415) CONTROL RESET ROUTINE 

DR 9 RST ||CALL«DRV, RESET TRAP+16 C 104416 ) DRIVE RESET ROUTINE 

MSGE ffCALLsMESAGE TRAP+17 ( 1 04417 ) MESSAGE HANDLER 

TY 9 MSG J jCALLsTYPMSG TRAP+20C 104420 ) MESSAGE TYPEOUT ROUTINE 

CN 4 PDY J}CALLaCON e RDY TRAP+21 ( 10442 1 ) WAIT FOR CONTROL READY 

TSTRWS ||CALL«TST,RWS TRAP+22 C 104422 ) TEST R/W/S RDY SET 

RES 9 DO nCALLsRESDON TRAP+23 ( 1 04423) DRIVE RESET DUNE? 

TYPDES | jCALLsTYPDSS TRAP+24 C 1 04424) TYPE DECIMAL, 5UPRES LDG 0"S 



MD»li-DZRKL*»£, RK1S-RK05 DYNAMIC TEST 
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5586 
5587 
S588 
3589 
5590 
§591 
5592 
5593 
55 9 4 
5595 
5596 
$597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
§608 
5609 
5610 
S611 
3612 
S613 



56 

56 

56 

56 

56 

56 

5620 

3621 

5622 

2623 

5624 

3625 

3626 

5627 

5628 

3629 

5630 

§631 

56 3 2 



023010 
023016 
023024 
023026 
023030 
023032 
023034 
023036 
023040 
023044 
023050 
023oS6 
023060 



023062 
023O?O 
023074 
023100 
023104 
023106 
023112 
023114 
023116 
023120 
023122 
023|24 
023126 
023134 
023142 
023144 
023146 
023150 
023152 
023154 
023156 
023160 
023162 
023170 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 
000776 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
023162 
012716 
004244 
000002 
000000 
000776 
000000 
005015 
000122 
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B SBTTL POWER DOWN AND UP ROUTINES 



023154 000024 
000340 000026 



156074 
023160 
023062 000024 



023154 
023160 
023160 
023160 



fPOWER DOWN ROUTINE 



gPWRDNg MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



#SlLLUP*i!#PWRVEC n SET 



#340jr@#PWRVEC*2 

RO,«CSP) 

R1,-(SP) 

R2,~(SP) 

R3,-(SP) 

R4 r -(SP) 

P5,»CSP) 

@SWR*«CSP) 

SP»$SAVR6 



IPRIO 
J PUSH 
jPUSH 
?PUSH 
jiPUSH 
JPUSH 
?PUSH 
?PUSH 
JSAVE 



#$PWRUP#@#PWRVEC ?JSET 



FOR FAST UP 

7 

RO ON STACK 

PI ON STACK 

R2 ON STACK 

R3 ON STACK 

R4 ON STACK 

R5 ON STACK 

§SWR ON STACK 

SP 

UP VECTOR 



| POWER 
$PWRUPg 



UP ROUTINE 



«###««#######&mm########m## 



1S6026 



023010 000024 
000340 000026 



047520 042527 



IPWRMGI 

IPWRADI 

ULLUPi 

SSAVR6S 
$POWER| 



MOV 

MOV 

CLR 

INC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

s WORD 

MOV 

8 WORD 

RTI 

HALT 

BR 



8 ASCIZ 

5 EVEN 



8SILLUP* g>#PWRVEC 

SSAVR6?SP 

SSAVR6 

$SAVR6 

IS 

CSP) + f MWR 

CSP)*,R§ 

CSP)*,F4 

£SP)*,R3 

(SP)*,R2 

CSP}+ # R1 

(SP)*,RO 

#SPWRDN f g#PWRVEC 

#340*t#PWRVEC*2 

SPOWER 

(po + »cspj 

PWRFL 



If SET FOP FAST DOWN 

fGET SP 

jWAIT LOOP FOR THE TTY 

pWAIT FOR THE INC 

?0F WORD 

JPOP STACK INTO @SWR 

jPOP'STACK INTO R5 

fPOP STACK INTO R4 

JPOP STACK INTO R3 

fPOP STACK INTO R2 

JPOP STACK INTO Rl 

J POP STACK INTO RO 

jtfSET UP THE POWER DOWN VECTOR 

?PRI0|7 

REPORT THE POWER FAILURE 

jPOWER FAIL MESSAGE POINTER 

jRESTART AT PWRFL 

I RESTART ADDRESS 



< i 53K i a* 85 POWER w 



jfTHE POWER UP SEQUENCE WAS STARTED 
It BEFORE THE POWER DOWN WAS COMPLETE 
IfPUT THE SP HERE 



MD«*11»DZRKL«»E, RKli-RKOS DYNAMIC TEST 
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5633 
S634 
5635 
5636 
5637 
563B 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
56*6 
5647 
5648 
56-59 
565C 
5651 
5652 
5653 
565* 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5607 
5668 
5669 
5670 
5671 
5672 
5673 
56 7 4 
5675 
5676 
5677 
5678 
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sSBTfl FUNCTION SELECTION PROGRAM 



?IHIS IS. THE FUNCTION SELECTION PROGRAM 8 

?0N ENTERING THIS SUBPROGRAM THE FIRST QUESTION ASKED IS 



FUNCTION? 
^COMMANDS? CR 
» DR 

| SK 

J WR 

RD 

wc 

RC 



IN REPLY TYPE IN ONE OF THE FOLLOWING COMMANDS^ 

CONTROL RESET 

DRIVE RESET 

SEEK 

WRITE 

READ 

WRITE CHECK 
. READ CHECK 

pTERMINATE EVERY COMMAND WITH <CR> 8 FURTHER QUESTIONS (RKBA? , RKDA? , 
|#WORDS? ) WILL BE ASKED, TYPE IN THE BUS ADDRESS (OCTAL) , DISK ADDRESS 
j (OCTAL), AND NUMBER OF WORDS TO BE TRANSFERRED (OCTAL) , IF A NON-EXISTENT 
jCYLINDER OR A NON-EXISTENT SECTOR IS TYPED IN, THE QUESTION (RKDA?) WILL 
jBE ASKED AGAIN 8 

yIN CASE OF SEEK FUNCTION, SEEK IS DONE BETWEEN A SET OF CYLINDERS GIVEN 
|BY THE USER (CYLi? , CYL2?) S IN REPLY TO (CYL1?, CYL2?) TYPE IN THE OCTAL 
^CYLINDER NUMBERS BETWEEN WHICH THE SEEK IS TO BE DONE® SET SWITCH 
^REGISTER BITS <15*13> TO THE DRIVE # ON WHICH SEEK IS TO BE DONE* 

J IN CASE OF A WRITE FUNCTION IF SW IS SET TO 1 THE PROGRAM WILL ASK 

fTHE USER FOR THE PATTERN TO BE WPITTENf 

f PATRN?125252«SCR> 

}THE USER SHOULD TYPE IN THE (OCTAL) PATTERN HE WANTS TO WRITE, 

fNOTE THAT THE NUMBER OF WORDS TRANSFERRED SHOULD BE WITHIN THE 

fBOUNDS OF THE SYSTEM,, 

I IN CASE OF A WRITE CHECK FUNCTION IF 5W0 IS SET TO 1 THE PROGRAM 
jWILL ASK THE USER FOR THE PATTERN TO BE WRITE CHECKED! 
? PATRM?!25252<CR> 

jTHE USER SHOULD TYPE IN THE (OCTAL) PATTERN TO BE WRITE CHECKED,, 

fLOCATIONS "lOBUFO" ONWARDS ARE RESERVED FOR DATA 8UFFERS 9 YOU CAN USE 
jTHESE LOCATIONS FOR DOING DATA TRANSFERS IN THIS PPQGRAM (OR YOU CAN 
jUSE ANY OTHER BUFFER FOR DATA TRANSFER AS LONG AS IT DOES NOT OVERLAY 
?THE PROGRAM) , 

jTHE SAME FUNCTION IS PERFORMED AGAIN AND AGAIN, THUS PROVIDING 
?A VERY GOOD SCOPE L00P 8 IF YOU WANT TO GIVE A NEW FUNCTION PUT SW 3 UP, 
fTHE QUESTION (FUNCTION?) WILL BE ASKED AND YOU CAN START ALL OVER AGAIN, 
fIF ON EXECUTING A FUNCTION AN ERROR OCCURS, IT IS REPOTRED , WITH 

I RELEVANT REGISTER CONTENTS GIVEN, 



5679 

5680 
5681 
5682 
5693 
56B4 
5685 
5686 
5687 
5688 



023172 
023172 
023176 

023216 
023216 



104 401 
O00407 



11658; 

64$i 



,65$ 
64$ 



a ASCIZ <15><12>/FUNCTION? / 



?R2 CONTAINS RKCS CONTENTS 

?R3 CONTAINS RKDA CONTENTS 

|R4,R5 CONTAIN THE CYLINDER #S BETWEEN 

fWHICH SEEK IS TO BE DONE, 

1 |TYPE ASCIZ STRING 
; jGET OVER THE ASCIZ 



MD-J1-UZRKL-E, RK11»RK05 DYNAMIC TEST 
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5689 


023220 


012600 




5690 


023222 


112001 




5691 


023224 


120127 


000127 


5692 


f>23230 


001026 




5693 


023232 


121027 


000122 


5694 


023236 


00 10 10 




5695 


023240 


004737 


024064 


5696 


"23244 


012702 


004003 


5697 


023250 


000536 




5698 








5699 


023252 


012702 


000003 


57 00 


023256 


000521 




5701 


023260 


121027 


000103 


5702 


023264 


001342 




5703 


023266 


004737 


024064 


5704 


023272 


012702 


004007 


5705 


023276 


000523 




5706 








5707 


023300 


012702 


000007 


5708 


023304 


000506 




5709 








5710 


023306 


120127 


000122 


5711 


023312 


001014 




5712 


023314 


121027 


000104 


5713 


023320 


001003 




5714 


023322 


032702 


000605 


5715 


023326 


000475 




5716 


023330 


121027 


000103 


5717 


023334 


001316 




§718 


023336 


012702 


000013 


5719 


023342 


000501 




5720 








5721 


023344 


120127 


000104 


5722 


023350 


001006 




5723 


023352 


121027 


000122 


5724 


023356 


001305 




5725 


023360 


012702 


000015 


5726 


023364 


000470 




5727 








5728 


023366 


120127 


000103 


5729 


023372 


001006 




5730 


023374 


121027 


000122 


5731 


023400 


001274 




5732 


023402 


012702 


000001 


5733 


023406 


000533 




5734 








5735 


023410 


120127 


"000123 


5736 


023414 


001266 




5737 


023416 


121027 


000113 


5738 


023422 


001263 




5739 


023424 


012702 


000011 


5740 








5741 


023430 






5742 


023430 


104401 


023436 


5743 


023434 


000404 




5744 











MOV 


CSP)*,R0 




MOVE 


(R0)+»R1 




CMPB 


R1,#*W 




BNE 


2$ 




CMPB 


CRO),#*R 




BNE 


1$ 




JSR 


PCCHKSWO 




MOV 


#4003, R2 




BR 


NXTDA 


9*1 


MOV 


#3,R2 




BR 


NXTBA 


It! 


CMPB 


CRO)f #*C 




BNE 


FUNBEG 




JSR 


PCCHKSWO 




MOV 


#4007, R2 




BR 


NXTDA 




MOV 


#7,R2 




BR 


NXTBA 


2%% 


CMPB 


Rt, «'F 




BNE 


3s§ 




CMPB 


(R0),#*D 




BNE 


88 




MOV 


#5,R2 




BR 


NXTBA 


888 


CMPB 


(R03##*C 




BNE 


FUNBEG 




MOV 


#13, R2 




BR 


NXTDA 


3S 1 


CMPB 


R1,#*D 




BNE 


4$ 




CMPB 


(R0),#*R 




BNE 


FUNBEG 




MOV 


#I5*R2 




BR 


NXTDA 


4S| 


CMPB 


R1 # «*C 




BNE 


51 




CMPB 


(RO)##*R 




BNE 


FUNBEG 




MOV 


«1 # R2 




BR 


EXEC 


si! 


CMPB 


R1 # #*S 




BNE 


FUNBEG 




CMPB 


(R03,# 9 & 




BNE 


FUNBEG 




MOV 


M1»R2 


6S8 








TYPE 


,67$ 




BR 


66$ 


U67tl 


8 ASCIZ 


/CYLI? / 



jCHECK SW SET? 



jiCHECK SW SET? 



j I TYPE ASCIZ STRING 
SlGET OVER THE ASCIZ 
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5745 


023446 






g&$£ 






S746 


023446 


004737 


024032 




JSR 


PC,INPT 


5747 


023452 


000766 






BR 


61 


S748 


023454 


010004 






MOV 


R0,R4 


5749 














§750 


023456 






781 






5751 


0234515 


104401 


023464 




TYPE 


,69$ 


5752 


023462 


000404 






BR 


68$ 


S753 








H69SI 


e ASCXZ 


/CYL2f / 


57S4 


023474 






68§! 






§755 


023474 


004737 


024032 




JSR 


PCINPT 


5756 


023500 


000766 






BR 


78 


5757 


023502 


010005 






MOV 


RQ,R§ 


5758 


023504 


017700 


15543Q 




MOV 


ISWR*RO 


575 9 


023510 


042700 


017777 




BIC 


#17777, RO 


5760 


023514 


050004 






BIS 


RQ,R4 


§761 


023516 


05000S 






BIS 


RO,R§ 


5762 


023520 


000466 






BR 


EXEC 


5763 














S764 














5765 


023522 






NXTBAl 






5766 


023522 


104401 


023530 




TYPE 


,65S 


5767 


023526 


000404 






BR 


64® 


5768 








||65»l 


9 ASCIZ 


/RKBA? / 


5769 


023540 






6488 






5770 


023S40 


104412 






RDOCT 




577 i 


023S42 


012637 


001476 




MOV 


(SP)*,XNDX2 


5772 














5773 


023546 






NXTDAl 






5774 


023546 


104401 


023554 




TYPE 


,.65« 


5775 


023552 


000404 






BR 


64$ 


5776 








f?65$I 


9 ASCIZ 


/RKDA? / 


57 7 7 


023564 






6488 






5778 


023564 


104412 






ROOCT 




5779 


023566 


012600 






MOV 


CSP)*,RO 


5780 


023570 


010001 






MOV 


-RO f Rl 


5781 


023572 


006201 






ASR 


"Rl 


5782 


023574 


006201 






ASR 


Rl 


5783 


023576 


006201 






ASR 


Rl 


5784 


023600 


006201 






ASR 


Rl 


5785 


023602 


006201 






ASR 


Rl 


5766 


023604 


042701 


177400 




BIC 


#177400, Rl 


5787 


023610 


020127 


000312 




CMP 


R1,«312 


5788 


023614 


003354 






BGT 


NXTDA 


5789 


023616 


010001 






MOV 


R0,R1 


5790 


023620 


042701 


177760 




BIC 


#177760, PI 


5791 


023624 


020127 


000013 




CMP 


Rl,#13 


5792 


023630 


003346 






BGT 


NXTDA 


5793 


023632 


010003 






MOV 


R0,R3 


5794 


023634 


022702 


000015 




CMP 


#15, R2 


5795 


023640 


001416 






BEQ 


EXEC 


5796 














5797 














5798 


023642 






NXTWCl 






5799 


023642 


104401 


023650 




TYPE 


,65$ 


5800 


023646 


000405 






BR 


64$ 



jfTYPE ASCIZ STRING 
jjGET OVER THE ASCIZ 



jGET DRIVE I FROM SW REG<15»13> 
?CLR UNWANTED BITS 
jSET DRIVE # IN DSK ADRES 



?fTYPE ASCIZ STRING 
;jGET OVER THE ASCIZ 



f jTYPE ASCIZ STRING 
; jGET OVER THE ASCIZ 



^ 



jjTYPE ASCIZ STRING 

IjGET OVER THE ASCIZ 



MD«ll-OZRKL»E f PK11-RK05 DYNAMIC TEST 
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5801 










I J65S! 


a ASCIZ 


DWORDS? / 




5802 


023662 








64SJ 








5803 


023662 


104412 








RDOCT 






5804 


023664 


005416 








NEG 


(SPD 




5 8 05 


023666 


012637 


001502 






MOV 


(SP)+»INDX4 




5806 
5807 
5808 


023672 


00040! 








BR 


EXEC 




023674 


104415 






EXEC 1? 


C0N 8 RESET 


fCLR EROR, CONTROL RESET 


58 09 


023676 


022702 


000011 




EXEC I 


CMP 


#il#R2 


f |SEEK FUNCTION? 


5810 


023702 


001005 








BNE 


2$ 


|N0 


581 1 


023704 


020403 








CMP 


R4,R3 


j IF SEEK, INSERT THE RIGHT 


5812 


023706 


001402 








BEQ 


3$ 


fCYLINDER ADDRESS 


5813 


023710 


010403 








MOV 


R4*R3 




5814 


023712 


000401 








BR 


2$ 




5815 


023714 


030503 






3$? 


MOV 


R§,R3 




5816 


023716 


013777 


001476 


155S36 


2SJ 


MOV 


INDX2,SRKBA 




5817 


023724 


010377 


155534 






MOV 


R3,@RKDA 




5818 


023730 


013777 


001502 


155522 




MOV 


INDX4,@RKWC 




5819 


023736 


010277 


155514 






MOV 


R2,£RKCS 




5820 


023742 


105777 


15SS10 




ill 


TSTB 


SRKCS 


jWAIT FOR CNTROL PDY 


5821 


023746 


100375 








BPL 


18 




5822 


023750 


022702 


000001 






CMP 


#i,R2 


jIF IT'S CON RESET FUNCTION 


5823 


023754 


00140! 








BEQ 


4S 


jDONT WAIT FOR R/W/S RDY 


5824 


023756 


104423 








RESDON 




jR/w/S RDY? 


5825 














■" 




5826 


023760 


032777 


140000 


15S470 


4«l 


BIT 


#140000, §RKCS 


{ERROR? 


5827 


023766 


001006 








BNE 


FUNERR 


J YES 


5828 


023770 


032777 


000010 


155142 


CHSWl - 


BIT 


#SW3,@SWR 


fTERMINATE THIS FUNCTION OR REPEAT? 


5829 


023776 


001737 








BEQ 


EXEC 


^REPEAT 


5830 


024000 


000137 


023172 






JMP 


FUNBEG 


STEPMINATE 


583i 
5832 
5833 


















024004 


012737 


023674 


001110 


FUNERRS 


MOV 


ffEXECl* SLPERR 


fSET UP FOR LUPING 


5834 


024012 


012737 


023674 


001106 




MOV 


8EXECi,$LPADR 




5835 


024020 


004737 


016162 






JSR 


PC,GT4RG 




5836 


024024 


104030 








ERROR 


30 


,• REPORT ERROR 


§837 


024026 


104415 








C0N 9 RE@ET 


fCLR ERROR 


5838 


024030 


000757 








BR 


CHS^ 




S839 


















5840 


024032 


104412- 






INPTI 




RDOCT 




5841 


024034 


012600 








MOV 


(SP)*,RO 




5842 


024036 


020027 


000312 






CMP 


R0,#312 




5843 


024042 


003007 








BGT 


'« 




5844 


024044 


006300 








ASL 


RO 




5845 


024046 


006300 








ASL 


RO 




5846 


024050 


006300 








ASL 


RO 




5847 


024052 


006300 








ASL 


RO 




3648 


024054 


006300 








ASL 


RO 




5849 


024OS6 


062716 


000002 






ADD 


#2,CSP5 




§850 


024062 


000207 






ISi 


RTS 


PC 




5851 

5852 


024064 


032777 


00000! 


I5S046 


CHKSWO 


BIT 


#SWQ»§SWR 


jWRITE A PATTERN GIVEN BY USER? 


5853 


024072 


001416 








BEQ 


\% 


|N0 • 


5854 
















jYES, ASK FOR PATTERN 


5855 


024074 


104401 


024102 






TYPE 


# 6S§ 


fjTYPE ASCIZ STRING 


5856 


024100 


000404 








BR 


64$ 


fpGET OVER THE ASCIZ 



MD»11«DZRKL«B# RKll«-FKOS DYNAMIC TEST 
DZRKL£ e Plt 26^APP<®77 12127 



5857 
585B 
5859 

5860 
5861 
5862 
5863 

5864 
5865 

5866 
5867 
5R68 
5P69 
5870 
5871 
5872 
5873 
5B74 
5875 
5876 
5377 
5B78 
5879 
5B80 
5881 
5882 
5881 
5864 
5885 
5 886 
5837 
5888 
5899 
5^90 
589! 
5R92 
5^93 
5394 
5895 
5996 
5«97 
5699 
5899 
59O0 
5901 
5 902 

5903 
5 90 4 
5905 
59«'b 
5<>u7 
5908 
5 90 9 
59 10 
59) \ 
5912 



MACYil 30(1045) 14«JUL«77 
FUNCTION SELECTION PROGRAM 



JI6S8I B ASCIZ /PATRN?/ 



024112 
024112 
024114 
024120 
024126 
024130 
024134 

024536 
024140 
024|42 
024150 
024156 
024160 
024166 
024170 
024176 
024204 
024212 
24 214 
024222 
024224 
024232 
024234 
024236 
024244 
024246 
024250 
024254 
024260 
024262 
024264 
024 2 70 
0242?? 
024276 
024300 
024304 
024312 
024314 
024316 
024324 
024330 
2^332 



024334 
024342 
02*350 
024356 
2 4 3 6 4 
2 4 3 7 2 

024373 



104412 
012637 
012737 
000207 
062716 
000207 

104416 
104415 
013737 
032737 
001404 
042737 
000403 
052737 
013777 
012777 
104421 
013777 
104421 
032777 
001001 
005725 
OS3737 
104416 
000205 
005037 
012700 
105710 
001413 
105760 
001410 
004537 
00 405 
052710 
052760 
0057 2 
005720 
06 27 37 
022700 
003353 
000207 



4 7 
0*2 
047 
05 2 
020 



031446 

031446 



001230 
020000 



001476 



002120 
001230 



020000 

001230 
000011 

002120 

OOOiOO 



643 ! 



FCHECKJ DRV 9 RESET 
CON e RESET 



020000 001230 



001230 
1SS260 

155244 

15S242 
1S5220 



103 
122 
104 
105 
122 
000 



000002 

024136 



000002 
000002 



040000 
001251 



051124 
020131 
052047 
040440 
042523 



000002 
001230 



020114 
044504 
051440 
052106 

045505 



MOV 


(SP)+,I0BUF1 


MOV 


#I0BUFi ? INDX2 


RTS 


PC 


ADD 


#6,CSP) 


RTS 


PC 



08103 PAGE 110 



j SAVE THE PATTERN 

I SKIP NXT 2 INST ON RETURN 



IS! 

2$S 



002120 001230 388 



001230 
001232 



MOV 




DRIVAD,DRHOLD 




jSAVE DRIVE ADRR 


BIT 




#20000,DRIVAD 




jSEE IF ODD 


BEQ 




1$ 






BIC 




#20000, DRIVAD 




j MAKE EVEN ' 


BR 




28 






BIS 




#20000, DRIVAD 




jMAKE ODD 


MOV 




DRIVAD,$RKDA 


fDRIVE 


ADDR 


MOV 




«U»@RKCS 




fDRIVE SEEK 


C0N 8 


RDY 








MOV 




DRHOLD,§RKDA 




fQTHER DRIVE 


CON e 


RDY 








BIT 




#100,@RKDS 




jHEAEDS IN MOTIONN? 


BNE 




3$ 




;NQ SO RK-05J 


TST 




CR55 + 




jYES RK-05F 


MOV 




DPH0LD,DRIVAD 




j RESTORE ADDR 


DRV 9 


RESET 






RTS 




R5 






CLR 




DRIVAD 


1 START 


AT DRO 


MOV 




8DRIV0,R0 




jTABLE OF AVAIL DRIVES 


TSTB 




(RO) 




jTHIS DRIVE HERE? 


BEQ 




2$ 




{NO 


TSTB 




2CR0) 




|COMPLEMENT HERE? 


BFQ 




2$ 




jNQ 


JSR 




R5,FCHECK 




?SEE IF F MODEL 


BR 




2$ 




jj MODEL 


BIS 




#2,(R0) 


5 SET SIGN FOR F 


BIS 




82,2(R03 




{BOTH DRIVES 


TST 




(RO)* 






TST 




CRO) + 




fNEXT PAIR OF DRIVES 


ADD 




#40Q00»DRIVAD 




jfMEXT ACTUL ADDP 


CMP 




#DRIV7+1#R0 




jCHECKED ALL? 


BGT 




4$ 




j NOT YET 


RTS 




PC 







jERPOR MESSAGES 



123 047111 047440 EM2l 



„ASCIZ /CNTRL RDY DIDN'T SET AFTP SEEK/ 



8 ASCIZ /SIN ON SEEK/ 



MD-I l-DZRKL-E, PK11-FK05 DYNAMIC TEST 
DZRKLF.pn 26»APP°77 1 2 I 27 



MACY11 30(10463 14»JUL«-77 
FUNCTION SELECTION PROGRAM 



08103 PAGE 111 



591 3 
5914 
5<H5 
5916 
5917 
591 8 
5919 
5 9 2 
5921 
5922 
5923 
5924 
5925 
5926 
5927 
5929 
5929 
5930 
5931 
593 2 
5933 
5934 
5935 
5936 
5 q 3 7 
5938 
5919 
5940 
5941 
5942 
5943 
5944 
5 9 45 
5946 
5947 
59 48 
5949 
5950 
5951 
5952 
595? 
5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5967 
5968 



02 4400 
02440b 



020116 042523 
000 



024407 104 042522 

024414 020116 042523 

024422 OOQ 

024423 047 051105 
024430 047440 020116 
024436 045505 000 



024441 

024446 
024454 
024462 
024470 
024476 
024504 

024510 
024516 

024524 
024532 
024540 

0245 45 
024552 
024560 

024564 
024572 
024600 
024606 
024614 
024615 
024622 
2 4630 
024633 
024640 
024646 
024654 
02465S 
024662 
024670 
024676 

024704 
024712 
024720 
024726 
024734 
024742 
024750 
024756 

024757 



104 
020116 
020054 
051104 
023440 
020047 
047125 



052522 
042523 
052520 
020126 
047514 
020046 
000047 



027522 027527 

042122 020131 

020124 042523 

043101 042524 

042523 045505 

123 047111 

020116 051127 

046506 000124 



042447 

047117 

043516 

042524 

000 

123 

020116 

052115 

047 

047440 

042101 

000 

127 

044040 

051106 

042523 

051105 
020116 
042511 
045505 
020115 
023S01 
041447 
000 



051122 
042040 

053440 
043040 

047111 
042122 
000 
05110S 
020116 
043040 

047522 
051104 
046517 
021503 

•051117 
046511 
020104 
043040 
041447 
052040 
046131 



047440 EM3l 
045505 



023522 EM4t 
042523 



047440 
045505 
020124 
047117 
042101 
051047 



020123 
047516 
020124 
020122 
000 

047440 
020124 



020047 
044517 
044522 
052H5 

047440 
043057 

023522 
042522 
052115 

043516 
020123 
023440 
Q00047 

047440 
046120 
042523 
047522 
046131 
020117 
023502 



S ASCIZ /ORE ON SEEK/ 



9 ASCIZ /'ERR* ON SEEK/ 



122 040S0S 020104 M515I 



9 ASCIZ /DRU ON SEEK, PUT DRV ON •LOAD* 6 'RUN'/ 

8 ASCIZ K R/W/S RDY NOT SET AFTER SEEK" 

8 ASCIZ /SIN ON WRT FMT/ 

8 ASCIZ / ff £RR* ON DOING WRITE FMT/ 

S ASCIZ W SIN ON RD/FMT" 

8 ASCIZ / 8 ERR* ON READ FMT/ 

S ASCIZ /WRONG HDRS FRO?* *SEC#*/ 

8 ASCIZ /EROR ON IMPLIED SEEK FROM *CYLA* TO "CYLB*/ 

9 ASCXZ /READ WRONG HDRS FROM *CYLB* ABOVE/ 



MD-11-D-ZRKL.E, RK11*»RK0§ DYNAMIC TEST 
DZBKLE.PU 26«>APR«*77 12l27 



MACYli 30(1046) 14«JUL»77 
FUNCTION SELECTION PROGRAM 



08103 PAGE 112 



5969 
5970 
5971 
5972 
5973 
5974 
5975 
5975 
5977 
5978 
5979 
5980 
5981 
5982 
5983 
5984 
5985 
5986 
5987 
5988 
5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 
6003 
6004 
6 005 
6006 
6007 
6008 
6009 
6010 
6011 
6012 
601.3 
6014 

6015 
6016 
6017 
6018 
6019 
6020 
6021 
6022 
6023 
6024 



024764 
024772 
025000 
025006 



051127 
042110 
047522 
046131 



047117 
051S22 



025014 047502 042526 



02S02I 
025026 
025034 
025042 
025050 
025056 
025064 
025072 
025100 
025106 
025114 
025122 

025126 
025134 
025J42 
025150 
02S156 
025164 
025172 

025174 
025202 
025210 
025216 
025224 
025232 
025240 
025246 
2525 4 



122 
051127 
030440 
042122 
020115 
026060 
041114 
020116 
042511 
045505 
020115 
023501 

042522 
052123 
043040 
042523 
023440 
020047 
000105 

042522 
047522 
051104 
044440 
042105 
020113 
023440 
020047 
054503 



025262 053105 

025270 020116 

025276 020107 

025304 020105 

025312 051511 



020107 
043040 



020115 041447 
023502 040440 



040505 
047117 
052123 
043040 
042523 
023440 
020047 
046511 
020104 
043040 
041447 
000051 

042101 
033440 
047522 
020103 
054503 
041101 



042101 
043516 
020123 
050115 
051440 
051106 
054503 
047524 
041114 

051117 
047504 
051127 
047117 
000113 



000 

020104 
026107 
053440 
047522 
020103 
054503 
0474S0 
046130 
042S23 
047522 
046131 



030440 
042122 
020115 
026061 
041114 
053117 



053440 
044040 
047117 
044514 
042505 
046517 
040514 
023440 
000047 

047440 
047111 
052111 
042040 



025341 
025346 
025354 

025362 
025370 



HO 
042040 
051040 

051503 
051040 



020105 
044517 
040505 

020105 
040505 



047117 
043516 
000104 

047117 
000104 



EM16? .ASCII /READ WRONG, 1ST WRD FROM SEC 0, *CYLB* CON IMPLIED SEEK FROM 'CYLA*)/ 



9 ASCIZ /READ 1ST WRD FROM SEC 1, *CYLB* ABOVE/ 



S ASCIZ /READ WRONG HDRS ON IMPLIED SEEK FROM 'CYLA* TO 'CYLBV 



025316 044523 020116 047117 EM22J 
025324 042040 044517 043516 
025332 053440 044522 042524 



025376 040504 040524 042440 EM25S 



9 ASCIZ /EROR ON DOING WRITE ON DISK/ 

8 ASCIZ /SIN ON DOING WRITE/ 

9 ASCIZ /HE ON DOING READ/ 

8 ASCIZ /CSE ON READ/ 

9 ASCIZ /DATA EROR ON READ FROM DISK ADRES/ 



"> 



MD-U-DZRKL-E, RKtl«RK05 DYNAMIC TEST MACYli 30(1046} 14-JUL-77 08503 PAGE 113 
DZPKLE 8 PH 26-APR-77 12827 FUNCTION SELECTION PROGRAM 



6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
6033 
6034 
603S 
6036 
6037 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
§061 
6062 
6063 
6064 
6065 
6066 
6067 
6 06 8 
6063 
6070 
607i 
607 2 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 



025404 
025412 
025420 
025426 
025434 

025440 
025446 
025454 

025456 
025464 

025472 



025500 
025506 
025514 
025522 
025530 
025536 
025544 

025546 
025554 
025562 
025570 

025576 
025604 
025612 
025620 
025626 
025634 
025642 
025650' 

025653 
025660 
025666 
025674 
025702 
025710 
025716 
025724 
025732 
025740 
025746 
025750 
025756 
025764 



047522 
051040 
051106 
051511 
042522 



020122 
040505 
046517 
020113 
000123 



042510 047440 

051127 020124 
000113 

051127 020124 

020113 051105 
000 



047117 
020104 
042040 
042101 



020116 EM268 
044103 



044103 
051117 



e ASCIZ /HE ON WRT CHK/ 



a ASCIZ /WRT CHK EROR/ 



105 047522 000122 EM30I 8 ASCIZ /EROR/ 
jDATA HEADERS 



020040 
020040 
020123 
042513 
051040 
020040 
000101 

042523 
020040 
047111 
051122 

020040 
020040 
020123 
042513 
051040 
020040 
020101 
046131 

040 
020040 
020123 
042513 
051040 
020040 
020072 
054503 
020040 
020040 
000103 
042523 
042110 
042126 



041520 
051040 
020040 
020122 
042113 
051040 



04S50S 
042523 
020107 
0S1U7 

041520 
051040 
020040 
020122 
042113 
051040 
020040 
000 

050040 
051040 
020040 
020122 
042113 
045522 
051104 
020114 
052523 
020040 

021503 

020122 

000 



020040 
041513 
051040 
020040 
020123 
042113 



021440 
043505 
042440 
000123 

020040 
041S13 
051040 
020040 
020123 
042113 
041440 



020103 
041513 
0S1040 
020040 
020123 
040504 
020040 
020040 
020122 
042523 

020040 
041522 



e ASCIZ /SEEK # SEEKING ERRORS/ 



8 ASCIZI/ PC 



RKDAS DR CYL 



DH13I 9 ASCIZ /SEC# HDR RCVD/ 



MD^H-DZRKL^E, PKli»PK05 DYNAMIC TEST 
DZRKLE 9 P11 28«APR«77 J2l27 



6081 


025767 


040 


050040 


020103 


6082 


025774 


020040 


020040 


054503 


6083 


026002 


040514 


020040 


020040 


6084 


026010 


054503 


041114 


020040' 


6085 


026016 


020040 


051040 


042513 


6086 


026024 


020122 


020040 


045522 


6087 


026032 


051504 


020040 


020040 


6088 


026040 


052040 


054522 


000043 


6089 










6090 


026046 


020040 


041520 


020040 


6091 


026054 


020040 


041440 


046131 


6092 


026062 


020101 


020040 


054503 


6093 


026070 


041114 


020040 


020040 


6094 


026076 


054105 


041520 


020124 


609S 


026104 


020040 


042522 


053103 


6096 


026112 


020104 


020040 


051124 


6097 


026120 


021531 


000 




6098 










6099 


026123 


040 


050040 


020103 


6100 


026130 


020040 


020040 


054503 


6101 


026136 


041114 


020040 


042440 


6102 


026144 


050130 


052103 


020040 


6103 


026152 


051040 


041505 


042126 


6104 


026160 


000 






6105 










6106 


026161 


040 


050040 


020103 


6107 


026166 


020040 


020040 


05H24 


6108 


026174 


021531 


020040 


051040 


6109 


026202 


041513 


020123 


020040 


6110 


026210 


051040 


042513 


020122 


6111 


026216 


020040 


051040 


042113 


6112 


026224 


020123 


051040 


042113 


6113 


026232 


03510$ 


042040 


020122 


6114 


026240 


041440 


046131 


020040 


61 15 


026246 


020040 


051440 


0SH25 


63 16 


026254 


020040 


020040 


020040 


61 17 


026262 


042523 


000103 




6118 










6H9 


026266 


047527 


042122 


020043 


61 20 


026274 


042440 


050130 


052103 


6121 


026302 


020040 


051040 


041505 


6122 


026310 


042126 


020040 


041440 


6323 


026316 


046131 


020040 


052523 


6124 


026324 


020122 


051440 


041505 


6125 


026332 


000 






6126 










6127 










6128 










6129 










61 30 










6131 




026334 






6132 










6133 


026334 


001116 


001162 


001164 


6134 


026342 


001166 


001170 


000000 


6135 










6136 


026350 


001116 


001162 


001164 



MACYH 30(10463 14-JUL-77 
FUNCTION SELECTION PROGRAM 



08103 PAGE 114 



RKER RKDS 



CYLA CYLB 



EXPCT RECVD 



CYLB EXPCT RECVD/ 



9 ASCIZ/ PC 



RKDS RKDAl DR CYL 



a ASCIZ /WQRD# EXPCT 



CYL SUF? SEC/ 



jERRQR DATA POINTERS 



e EVEN 
DTlS 



9 W0RD SERRPC,$REG0,gREGl,$REG2»$REG3,0 
e WORD 8ERPPC#$REG0#'8REGl#6REG2#SREG3f SREG4,0 



MD-11-DZRKL-E, RKil«RK05 DYNAMIC TEST 
DZRKLE.Pll 26«APR«77 12127 



61 37 


026356 


001166 


001170 


001172 


6! 38 


026364 


000000 






6139 










6140 


026366 


001116 


001162 


001164 


6141 


026374 


001166 


001172 


001174 


6142 


026402 


001176 


001200 


000000 


6143 










61 44 


026410 


001116 


001162 


001164 


6145 


026416 


001166 


000000 




6146 










M47 


026422 


001116 


001202 


001162 


6148 


026430 


001164 


001166 


001172 


6149 


026436 


001174 


001176 


001200 


6150 


026444 


000000 






6151 










6152 










6153 










6154 


026446 








6155 


026446 


000030 






6156 


026526 


000030 






6157 


026606 


000030 






6158 


026666 


000030 






6159 


026746 


000030 






6160 


027026 


000200 






6161 


027426 


000200 






6162 


030026 


000200 






6163 


030426 


000200 






6164 


031026 


000210 






6165 










6166 


031446 


001400 






6167 










6168 










6169 










6170 




000001 
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FUNCTION SELECTION PROGRAM 



DT1JI „WORD $ERRPC#$REG0#SREGl#SREG2f $REG4#SREG5f$REG6#SREG7f 

DT17S *WQRD $ERRPC«<REG0»$REGlfSREG2f 

DT24I 8 WORD SERRPCi$REG10f8REG0#$REGl#$REG2#SREG4,$REG5,|REG6,»REC7#0 

jDATA BUFFERS 



jIQBUFO AND I0BUF1 ARE 
ffWO - 768 WORDS LONG BUFFERS 
jNORMALLY USED FOR DATA TRANSFERS 
?T0 AND FROM DISK 



lOBUFOt 






OUTBUFl 


a BLKW 


24 9 


BUFR41 


S BLKW 


24 a 


BUFR5 8 


B BLKW 


24, 


BUFR61 


aBLKW 


24 a 


BUFR7S 


S BLKW 


24, 


BUFRiOs 


e BiKW 


128 


BUFR11S 


B BLKW 


128 


BUFR12! 


9 BLKW 


128 


BUFR13? 


e BLKW 


128 


BUFR14S 


S BLKW 


136 



IQBUFls a BLKW 768, 
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12127 


SYMBOL 


TABLE 












ABRT 


016772 


BUFR13 


030426 


DRVDON 


001223 


EXT10 


012732 


NOSIN 


011026 


&DRES 


001450 


BUFR14 


031026 


DRVPTR 


001226 


EXT4 


006614 


NXTBA 


023522 


BADTMO 


002422 


BUFRg 


001352 


DRV„REss 


104416 


EXT5 


007352 


NXTDA 


023546 


BEGIN 


010g32 


BUFR4 


026526 


DR 8 RST 


016470 


EXT6 


010432 


NXTDRV 


003760 


BEGSK 


013250 


BUFR5 


026606 


DSKADR 


001432 


EXT7 


012170 


NXTPAT 


001426 


8IT0 a 


000001 


BUFRg 


026666 


DSWR a 


177570 


FCHECK 


024136 


NXTWC 


023642 


BIfOO ss 


ooooo-i 


BUFR7 


026746 


DTI 


026334 


FDRIVE 


002114 


OUTADR 


001262 


BITOI s 


000002 


BUSADR 


001434 


Dili 


026366 


FDRVE1 


002116 


OUTBUF 


026446 


BIT02 « 


000004 


CHKHDR 


007260 


Din 


026410 


FFUNC 


001216 


PATO 


001414 


BIT03 ■ 


ooooio 


CHKSHO 


024064 


DT24 


026422 


FINISH 


011512 


PAT1 


001416 


BIT04 s 


000020 


CHSW 


023770 


DT7 


026350 


FUNBEG 


023172 


PAT2 


00S420 


B1T05 ss 


000040 


CKSWR « 


104407 


EMTVECs 


000030 


FUNERR 


024004 


PAT3 


001422 


BIT06 » 


000100 


CLRERR 


012162 


EMI 


024334 


GCYL 


016434 


PBUFO 


001404 


BIT07 a 


000200 


CMPAGA 


011244 


EM10 


034564 


GETBUF 


010044 


PBUF1 


001406 


BIT08 ■ 


000400 


CHPGRP 


014622 


EMU 


024615 


GETINF 


016214 


PGSUBR 


001430 


BIT09 ss 


ooiooo 


CN S RDY 


016620 


EM12 


024633 


GOBAK 


011650 


PIRQ s 


177772 


BIT! ss 


000002 


CN e R§T 


016S02 


EM13 


024655 


GOTYPE 


013600 


PIRQVEs 


*000240 


BITIO » 


002000 


CQMP&R 


011220 


EM14 


024704 


GTSWR s 


104406 


PLOT 


014222 


BIT11 » 


004000 


C0N 9 RDsj 


104421 


EM16 


025021 


GT4RG 


016162 


PLTGRP 


014106 


BITJ2 « 


010000 


CON s REss 


104415 


EM2 


024373 


GT5RG 


016136 


PLTPT 


014736 


BIT13 « 


020000 


CR » 


000015 


EM20 


025174 


HT s 


000011 


PLT1 


014436 


BIT14 ■ 


040000 


CRLF as 


000200 


EM21 


025262 


INADR 


001260 


PRSPAT 


001424 


BIT15 ■ 


100000 


CSERQR 


011654 


EM22 


025316 


INDX1 


001474 


PRO" "a 


000000 


BITS a 


000004 


DDISP a 


177570 


EM23 


025341 


INDX2 


001476 


PR1 ■ 


000040 


BIT3 « 


ooooio 


DH1 


025500 


EM24 


025362 


INDX3 


001500 


PR2 ■ 


OOOIOO 


BIT4 » 


000020 


DHI1 


025653 


EM25 


025376 


INDX4 


001502 


PR3 ■ 


000140 


BIT5 ■ 


000040 


DH13 


025750 


EM26 


025440 


INPT 


024032 


PR4 ■ 


000200 


BIT6 s 


oooioo 


DH14 


025767 


EM27 


025456 


IOBUF0 


026446 


PR5 s 


000240 


BIT7 s 


000200 


DH1S 


026046 


EM3 


024407 


I0BUF1 


031446 


PR6 s 


000300 


BITS ss 


000400 


DH17 


026123 


EM30 


' 025473 


lOTVECs 


000020 


PR7 s 


000340 


BIT9 « 


ooiooo 


DH24 


026161 


EM4 


024423 


LF s 


000012 


PS a 


177776 


BLNKSJ 


0021U 


DH25 


026266 


EMS 


024441 


LUPHE 


010640 


PSW a 


177776 


BLNKS2 


002H0 


DH6 


02S546 


EM6 


024510 


LUPSIN 


010632 


PTGENO 


010106 


BLNKS3 


002107 


DH7 


025576 


EM7 


024545 


LUPSW 


001222 


PTGEN1 


010170 


BLNKS4 


002106 


DISPLA 


001142 


ERCNT1 


001504 


LUPWCE 


011350 


PTGEN2 


010272 


8LNKSS 


002105 


DISPRE 


000174 


ERCNT2 


00150 6 


MESAGEs 


104417 


PTGEN3 


010334 


BLNKS6 


002104 


DMPREG 


017662 


ERCNT3 


001510 


MISCMP 


012016 


PTRNOi 


010164 


8LNKS7 


002103 


DONE 


011636 


EPCNT4 


001512 


MSGE 


016044 


PTRNQ2 


010166 


BLNKS8 


002|02 


DONTRK 


011576 


ERCNT5 


001514 


MSG1 


001602 


PT1 


001560 


Bl»JKS9 


002101 


D0SUR1 


011630 


ERCNT6 


001516 


MSGIO 


001742 


PT10 


001576 


BLNKIO 


002100 


DOWCHK 


012420 


ERCNT7 


001520 


MSG11 


001771 


PT11 


001600 


BLNK13 


002075 


DOWRT 


012224 


ERCNT8 


001522 


MSG12 


002027 


PT2 


001562 


BPTVECs 


000014 


DRHOLD 


002120 


ERRTYP 


017446 


NSG13 


002053 


PT3 


001564 


BRKDA 


016220 


DPIVAD 


001230 


ERRVECs 


000004 


MSG14 


002064 


PT4 


001566 


BTEOP 


015232 


DRIVS 


001224 


ERR1 


016376 


MSG2 


001610 


PT5 


001570 


BUFLGO 


001410 


DRIVO 


001232 


ERR2 


016320 


MSG3 


001616 


PT6 


001572 


BUFLG1 


O0I4S2 


DRIV1 


001234 


ERWCHK 


011404 


MSG4 


001640 


PT7 


001574 


BUFWO 


001446 


DRIVS 


001236 


ESR13 


015456 


HSG5 


001657 


PWRFL 


004244 


BUFR 


001266 


DRIV3 


001240 


ESR15 


015364 


MSG6 


001716 


PWRVECs 


000024 


BUFP1 


001320 


DRIV4 


001242 


ESR20 


015532 


MSG7 


001733 


RDAGAI 


010642 


BUFPIO 


027026 


DRIVS 


001244 


ESR25 


015620 


MS 15 


024757 


RDCHR" s 


104410 


BUFP11 


027426 


DRIVS 


001246 


EXEC 


023676 


MS17 


025126 


RDLIN = 


104411 


BUFRI2 


030026 


DRIV7 


001250 


EXEC! 


023674 


NOHF 


010760 


RDOCT s 


104412 
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DZPKLE 8 
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12S27 




SYMBOL 


TABLE 








READ 


010606 


STKLM1 


a 


177774 


TST7 


010436 


IENULL 


015344 


REPEAT 


012666 


ST2 




003512 


TYPDES 


022306 


$EOP 


015246 


REPMSC 


011274 


ST3 




003742 


TYPDS g 


104405 


SEDPCT 


015270 


PEPTIM 


U13200 


SWR 




001140 


TYPDSSs 


104424 


$£RFLG 


001103 


RESDONs 


104423 


SWREG 




000176 


TYPE s 


104401 


$ERMAX 


001115 


RESPEG& 


104414 


swo 


Si 


000001 


TYPMSGs 


104420 


IERROR 


017162 


RESVECs 


ooooio 


swoo 


s 


000001 


TYPOC ■ 


104402 


SERRPC 


001116 


RES e DO 


016514 


swoi 


5S 


000002 


TYPON a 


104404 


0ERRTB 


002122 


RETPY1 


001252 


SW02 


K 


000004 


TYPOS as 


104403 


/ SERTTL 


001112 


RETP*2 


001254 


S*I03 


(Z 


OOOOIO 


TYPTIM 


013736 


SESCAP 


001204 


RETRY3 


00125b 


SW04 


Si 


000020 


TY 9 MSG 


016106 


$FILLC 


001156 


RKBA 


001462 


SW05 


K 


000040 


WBUSAD 


001442 


SFILLS 


001155 


PKCS 


001456 


SW06 


■& 


000100 


WCAGAI 


011132 


$GDADR 


001120 


RKDft 


001464 


SH07 


Hi 


000200 


WCEROR 


012062 


SGDDAT 


001124 


RKDB 


001466 


SW08 


Vi 


000400 


WCERR 


012442 


SGET42 


015320 


RKDS 


001452 


SW09 


Si 


OOSOOO 


WCHI 


012446 


SGTSWR 


021154 


RKER 


001454 


5WJ 


S3 


000002 


WCHI1 


012440 


$HD = 


000000 


RKPRI 


001470 


swio 


& 


002000 


WCLO 


012646 


SHIOCT 


022056 


RKVEC 


001472 


SH11 


m 


004000 


WCREPT 


011334 


SICNT 


001104 


RKWC 


001460 


SW|2 


K 


010000 


WDSKAD 


001440 


IILLUP 


023154 


R6 » 


%000006 


SW|3 


m 


020000 


WRDCNT 


001436 


IINTAG 


00J135 


R7 « 


%000007 


SW14 


m 


040000 


WRERR 


012240 


$ITEMB 


001114 


5AVPEG" 


104413 


SWI5 


m 


100000 


WRHI 


012400 


§LF 


001214 


SEP! 


006526 


SW2 


w, 


000004 


WRLO 


012242 


$LPADR 


001106 


SBR2 


006552 


SW3 


w 


ooooio 


WRL01 


012236 


$LPERR 


ooino 


SBP3 


007224 


SW4 


s 


000020 


WRTCHK 


011116 


$MNEH 


021745 


SECPTR 


010426 


sws 


m 


000040 


WWRDCN 


001444 


' SMSWR 


021734 


SFTCMP 


011166 


SW6 


5S 


oooioo 


XHE 


011442 


$MUL « 


000003 


SIAD 


001542 


SW7 


a 


©00200 


XXDPMD 


001220 


gMULT 


020500 


81ZEF 


024250 


SWB 


S3 


000400 


SAUTOB 


001134 


(NULL 


001154 


S&DON 


015152 


6H9 


m 


OOSOOO 


$BDADR 


001122 


SNWTSTs 


000001 


SMGRP 


014472 


TBITVEss 


000014 


IBDDAT 


001126 


*OCNT 


022302 


SOAD 


001524 


TIMDOM 


014050 


HBELL 


001206 


$OMODE 


022304 


SORT 


0133^2 


TIMER 




001264 


ICHARC 


020474 


gOVER 


017146 


SP1 


012702 


TIMSEK 


014776 


SCKSWR 


021064 


IPASS 


001100 


SP10 


012724 


TKVEC 


ss 


000060 


SCMTAG 


001100 


SPOWER 


023162 


SP11 


012726 


TPVEC 


ss 


000064 


SCM1 ss 


000011 


SPWRAD 


023150 


SP12 


012730 


TRAPVE^ 


000034 


$CM2 s 


000022 


SPWRDN 


023010 


SP2 


012704 


TRTVEC^ 


000014 


ICM3 s 


000011 


SPWRMG 


023144 


SP3 


012706 


TSTRWS 


016716 


ICNTLG 


021727 


SPWRUP 


023062 


SP4 


012710 


TST 8 RWss 


104422 


SCNTLU 


021722 


$QUE5 


001212 


SP5 


012712 


TST1 




004260 


HCRLF 


001213 


IRDCHR 


021366 


SP6 


012714 


TST10 




012174 


IDBLK 


020250 


SRDLIN 


021456 


SP7 


012716 


TST1I 




012736 


IDB2D 


022506 


$RDOCT 


021756 


SPB 


012720 


TST12 




015224 


fDECVL 


022666 


$RDSZ s 


OOOOIO 


SP9 


012722 


TST2 




004624 


$0OAGN 


015340 


SREGAD 


001160 


STACK s 


001100 


TST3 




005122 


»DTBL 


020240 


3REG0 


001162 


START 


002462 


TST4 




005612 


$ END AD 


015330 


SREG1 


001164 


STARTA 


002530 


TST5 




006620 


IENDCT 


015276 


8REG10 


001202 


START1 


003074 


TST6 




007356 


IENDMG 


015347 


SREG2 


001166 



$REG3 


001170 


$REG4 


001172 


$REG5 


001174 


SREG6 


001176 


SREG7 


001200 


SRESRE 


022450 


SRTNA0 


015342 


$SAVRE 


022412 


$SAVR6 


023160 


SSCOPE 


017006 


$SETUPs 


000117 


$STUP ■ 


177777 


SSUPRS 


022352 


$SVLAD 


017120 


«SVPC"s 


000220 


SSriR s 


163000 


$SWRMKs 


000000 


$TKB 


001146 


STKCNX 


020612 


8TKINT 


020622 


$TKQENs 


020621 


STKQIW 


020614 


8TKQ0U 


020616 


STKQSR 


020620 


STK5 


001144 


STKSRV 


020672 


STN "e 


000013 


STNPWR 


022616 


$TPB 


001152 


$TPFLG 


001157 


$TPS 


001150 


STRAP 


022702 


$TRAP2 


022724 


gTRP s 


000025 


gTRPAD 


022736 


STSTNM 


OOU02 


STTYIN 


021712 


ITYPDS 


020034 


STYPE 


020260 


STYPEC 


020430 


ITYPEX 


020476 


STYPOC 


022104 


STYPON 


022120 


gTYPOS 


022060 


SXTSTR 


017030 


SSGET^s 


oooooo 


SOFILL 


022303 


8 S 


034446 



9 ABg a 034446 
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